дан массив из 10 элементов, которые вводятся с клавиатуры. Найти:

1) наибольший элемент

2) Сумму неотрицаельных элементов

3) Произведение четных элементов

var

m : array [1 ... 10] of Integer;

i, b, s, p : Integer;

begin

Writeln ('Введите массив:') ;

for i : = 1 to 10 do

begin

Write (i, ': ') ;

Readln (m[i]) ;

end;

s : = 0;

b : = m[1];

p : = 1;

for i : = 1 to 10 do

begin

if b < m[i] then b : = m[i];

if m[i] > 0 then s : = s + m[i];

if m[i] mod 2 = 0 then p : = p * m[i];

end;

Writeln ('Наибольший элемент = ', b) ;

Writeln ('Сумма неотрицаельных элементов = ', s) ;

Writeln ('Произведение четных элементов = ', p) ;

ReadLn;

end.