Паскаль. 1. Заполнить массив из 10 элементов случайными числами в интервале [-10 ... 10] и найти сумму элементов больших числа к введенного с клавиатуры

Question

Информатика

Гоша

7 апреля, 01:02

Паскаль. 1. Заполнить массив из 10 элементов случайными числами в интервале [-10 ... 10] и найти сумму элементов больших числа к введенного с клавиатуры

+5

Ответы (1)

Знаете ответ?

Корнилыч · Answer 1

Var a: array [0 ... 9] of integer;

i, b, c: integer;

begin

readln (b) ;

for i : = 0 to 9 do

begin

a[i] : = random (20) - 10;

if (a[i] > b) then c : = c + a[i];

end;

writeln (c) ;

end.