Question

Составьте программу, которая формирует массив, содержащий 16 случайных вещественных чисел от -2 до 3, и подсчитывает сумму отрицательных чисел. Вывод столбец с двумя десятичными знаками.

Answer 1

program zadacha;
vara: array[1..16] of real;i: integer;sum: real;
beginsum:=0;for i:=1 to 16 do begina[i]:=-2+random(3);writeln(a[i]:6:2);if a[i]<0 then sum:=sum+a[i];end;writeln();writeln('sum=',sum:4:2);end.