В массиве состоящем из 10 случайных элементов в интервале [-15;15],определить:
-последний максимум
-минимум среди положительных элементов
-количество max элементов.Pascal abc,9 класс
-последний максимум
-минимум среди положительных элементов
-количество max элементов.Pascal abc,9 класс
More Questions From This User See All
Answers & Comments
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] < min) and (a[i] >= 0) then
min := a[i];
end;
writeln;
writeln(max, ' - максимальный элемент; ', k, ' - количество максимумов; ', min, ' - минимальный положительный элемент.');
end.