В массиве состоящем из 10 случайных элементов в интервале [-15; 15], определить:

-последний максимум

-минимум среди положительных элементов

-количество max элементов. Pascal abc, 9 класс

Var

a: array [1 ... 10] of integer;

max, min, k, i: integer;

begin

max : = - 15;

k : = 0;

min : = 0;

for i : = 1 to 10 do begin

a[i] : = random (30) - 15;

write (a[i], ' ') ;

if (a[i] > = max) then begin

max : = a[i];

inc (k) ;

end else

k : = 0;

if (a[i] = 0) then

min : = a[i];

end;

writeln;

writeln (max, ' - максимальный элемент; ', k, ' - количество максимумов; ', min, ' - минимальный положительный элемент.') ;

end.