Помогите решить задачи на паскаль.1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение
Помогите решить задачи на паскаль. <span>1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива.</span>
<span>2) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти сумму четных элементов массива.</span>
<span>3) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти максимальный элемент массива.</span>
<span>4) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти максимальный элемент массива среди элементов, кратных 3.</span>
1) 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], ' '); s := s * a[i]; end; writeln; writeln(s); <span>end.
2) </span>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); <span>end.
3)</span>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); <span>end.
4)</span>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); <span>end.</span>