Информатика, опубликовано 2018-08-22 18:45:29 by Гость
составьте программу, которая формирует массив, содержащий 16 случайных чисел, принадлежащих промежутку [-2;3], и подсчитывает сумму отрицательных чисел.вывод в строку через запятую
Ответ оставил Гость
Program Program1;
var
i,sum:integer;
A: array [1..16] of integer;
begin
randomize;
for i:=1 to 16 do
begin
a[i]:=random(6)-2;
write(a[i],, );
end;
sum:=0;
for i:=1 to 16 do
if a[i]writeln(Сумма отрицательных чисел равна,sum);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на