Задание 1 Параграф 22 ГДЗ Семакин 9 класс (Информатика)

Ниже вариант решения задания из учебника Семакин, Залогова 9 класс, Просвещение:

Задания к §22

Алгоритмы обработки массивов (стр. 135 – 136)

1. Разработайте программу на Паскале. Имеется массив целых чисел. Необходимо найти максимальное и минимальное значения среди положительных элементов этого массива. В случае отсутствия положительных элементов в массиве программа должна выдавать сообщение об этом.

program MaxMin;

const

n = 10;

var

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

i, max, min: integer;

begin

writeln(task Формирование и вывод исходного массиваtask);

randomize;;

for i := 1 to n do

begin

a[i] := random(50) - 25;

write(a[i], task task)

end;

max := -Maxint - 1; min := Maxint;

for i := 1 to n do

begin

if a[i] > 0 then

begin

if max

if min > a[i] then min := a[i]

end;

end;

writeln;

if (max -Maxint) and (min Maxint) then

writeln(taskmax=task, max, task min=task, min)

else writeln(taskПоложительных элементов в массиве нет или есть всего один элементtask)

end.