Question

Составить программу вычисления суммы элементов массива А, значения которых меньше чем -0,5. Проверить работу программы за заданном массиве А(11).
Паскаль

Answer 1

var
a: array[1..100] of real;
i,n:Integer;
sum: real;
begin
WriteLn('Введите количество элементов массива');
Readln(n);
WriteLn('Массив');
for i:=1 to n do
begin
a[i]:=(random(100)-50)/10;
Write(a[i]:5);
if a[i]< -0.5 then sum:=sum +a[i];
end;
Writeln;
Writeln('Сумма элементов меньших -0,5 = ', sum);
end.