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

Question

Информатика

Лукич

7 октября, 09:32

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

+3

Ответы (1)

Знаете ответ на вопрос?

Антоныч · Answer 1

Program Program1;

var

i:integer;

sum:real;

a:array [1 ... 16] of real;

begin

randomize;

for i:=1 to 16 do

begin

a[i]:=-2 + Random * 5;

writeln ('a[', i,']=', a[i]:0:2) ;

end;

sum:=0;

for i:=1 to 16 do

if a[i]<0 then sum:=sum+a[i];

writeln ('Сумма отрицательных чисел равна', sum:0:2) ;

end.