Question

Уровень В. Найти максимальный элемент массива из целых чисел. Вывести этот элемент на экран.
Уровень С. Подсчитать количество положительных элементов в массиве из 7 целых чисел.

Answer 1

Программа:

Pascal:

var

 arr: array[1..7] of integer;

 i, n: integer;

begin

 // генерация и вывод рандомного массива из 7 чисел от -100 до 100

 for i := 1 to 7 do arr[i] := random(-100, 100);

 writeln(arr);

 // количество положительных элементво массива

 for i := 1 to 7 do

   if arr[i] > 0 then inc(n);

 

 // вывод максимального значения и кол-ва положительных элементов

 writeln(arr.max);

 writeln(n);

end.