Определить максимальное значение среди положительных элементов массива
Гость
Ответ(ы) на вопрос:
Гость
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