Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n] of integer; i,k: integer;
begin randomize; k:= ; for i:=1 to n do a[i]:= random(51)-25; for i:=1 to n do write(a[i]:4); writeln; for i:=1 to n do if a[i] then k:=; writeln('кол-во отрицательных: ', ); end.
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
ann1609
Программа стала работоспособной после добавления кода, который выделен жирным начертанием.
program arr;
const n=15;
var a: array[1..n] of integer;
i, k: integer;
begin
randomize;
k:=0;
for i:=1 to n do
a[i]:= random(51)-25;
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do if a[i] < 0 then k:= k + 1;
writeln('Кол-во отрицательных чисел: ', k );
end.
Новые вопросы в разделе Информатика
s3129502@gmail.com
16.02.2024, 13:53
Информатика
7-9 класс
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
