Решить на паскаль. 1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива. 2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива. 3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива. 4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
s := s * a[i];
end;
writeln;
writeln(s);
end.
2) var a: array[0..100] of integer; i, s, n: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
for i := 1 to n do begin
// if (i mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди четных номеров элементов.
// if (a[i] mod 2=0) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих четных элементов.
end;
writeln;
writeln(s);
end.
3)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) then s:=a[i];
end;
writeln;
writeln(s);
end.
4)var a: array[0..100] of integer; i, s, n, max: integer;
begin
writeln('Введите количество элементов в массиве: '); readln(n);
for i := 1 to n do begin
a[i] := random(10);
write(a[i], ' ');
end;
s:=0;
for i := 1 to n do begin
if (a[i]>s) and (a[i] mod 3=0) then s:=a[i];
end;
writeln;
writeln(s);
end.