Question

Помогите,пожалуйста
9 чисел выбрасываются случайным образом из отрезка от - 2 до 10. Подсчитать сумму чисел > 2 и вывести на экран.

Answer 1

Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
end.