Сформировать массив из 25 случайных чисел в диапазоне от 40 до 110.Найти сумму всех чисел которые меньше 60.

Сергій2006SSS Сергій2006SSS    2   10.12.2021 21:53    4

Ответы
fernandus fernandus  30.01.2022 21:34

Программа:

Pascal:

var

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

 sum, i: integer;

begin

 for i := 1 to 25 do begin

   arr[i] := random(40, 110);

   if arr[i] < 60 then sum := sum + arr[i];

 end;

 writeln(arr, #10, sum);

 

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика