1)var
a:array[1..5]of integer;
i,n,s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
s:=0;
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then s:=s+a[i]
end;
writeln('Сумма положительных элементов массива равна ', s)
end.
2)var
a:array[1..10]of integer;
i,n,P:integer;
begin
writeln('Введите число элементов');
readln(n);
writeln('Введите число');
P:=1;
for i:=1 to n do begin
read(a[i]);
if a[i] mod 6 = 0
then P:=P*a[i]
end;
writeln('Произведение элементов массива кратных 6 равна ',P)
end.
3)var
a:array[1..5]of integer;
n,i:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
writeln('Введите число');
for i:=1 to n do begin
read(a[i]);
if a[i]>0 then begin
a[i]:=a[i]*3;
writeln('Новый элемент равен: ',a[i])
end;
if a[i]<=0 then begin
a[i]:=a[i]+5;
writeln('Новый элемент равен: ',a[i])
end;
end;
end.
Буду рад если отметишь мой ответ как лучший
#include <stdlib.h>
using namespace std;
int main() {
int n,m,k=0;
cin >> n >> m;
int x[n], y[m];
srand(time(0));
for (int i = 0; i < n; i++) {
x[i]=rand() % 20;
cout << x[i] << " ";
}
cout <<"\n";
for (int i = 0; i < m; i++) {
y[i]=rand() % 20;
cout << y[i] << " ";
}
cout <<"\n";
for (int i = 0; i < n; i++)
if (x[i] == y[1]) k++;
cout << "k = " << k;
return 0;
}
Пример:
10 8
0 5 14 15 10 5 6 0 18 3
14 5 10 6 2 16 8 17
k = 2