Из n, введенных с клавиатуры чисел, найти сумму и кол-во отрицательных (паскаль)

Ответы (1)

Вутомир 27.04.2024 0
Vari, n, sum, k, a:Integer;beginWriteln ('Введмте кол-во чисел в последовательности') ;ReadLn (n) ;Writeln ('Введите числа') ;for i:=1 to n dobeginReadln (a) ;if a<0 thenbeginsum:=sum+a;k:=k+1;end;end;WriteLn ('В данной последовательности ', k, ' отрицательный (ых) элемента (ов) ') ;WriteLn ('Их сумма = ', sum) ;end.

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

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

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

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

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

ПРЕДМЕТЫ