Составьте программу вычисления в массиве А(10) заполненном случайными числами из интервала (-5,10) количества отрицательных элементов

Ответы (1)

Уэйлси 09.10.2024 1
Полагаю, Pascal ABC.

//Для Pascal ABC.Net:
Var a:array[1..10] of longint;n,i,k:longint;
Begin
readln(n); //Читаем количество элементов в массиве
for i:=1 to n do
begin
read(a[i]); //Читаем каждый элемент в массиве
if (a[i]<0) then k+=1; //Увеличиваем счётчик k на 1, если элемент меньше нуля
end;
writeln(k); //Выводим счётчик k
End.

//Для Pascal ABC:
Var a:array[1..10] of integer;n,i,k:integer; //Простой Паскаль не поддерживает longint
Begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if (a[i]<0) then k:=k+1; //Отличие в том, что здесь нельзя просто увеличить с помощью +=, только с :=k+1
end;
writeln(k); //Выводим счётчик k
End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика: