Дан массив из 10 элементов, которые вводятся с клавиатуры. Найти: 1) наибольший…

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.