Определить максимальное значение среди положительных элементов массива

Определить максимальное значение среди положительных элементов массива
Гость
Ответ(ы) на вопрос:
Гость
var i,max:integer; a: array [1..10] of integer; begin writeln('Введите числа'); for i:=1 to 10 do read(a[i]); max:=a[1]; for i:=1 to 10 do begin if max