Помогите, пожалуйста! Написать программу решения этой задачи в паскале, вот…

Question

37

Помогите, пожалуйста! Написать программу решения этой задачи в паскале, вот текст. Дано десять чисел, найти количествоотрицательных.

в избранное ссылка

Знаете ответ?

shashoks · Accepted Answer

78

shashoks

25 февраля 2023

var a: array[1… 10] of integer; k,i: byte; begin k: =0; for i: =1 to 10 do begin read (a[i]); if a[i]<0 then k: =k+1; end; writeln (k); end.

комментировать

в избранное ссылка отблагодарить