Спаскалем.с клавиатуры вводятся 7 целых чисел. вычислить количество отрицательных членов этой последовательности.

273

326

Посмотреть ответы 2

Ответы на вопрос:

dimakovelko

Информатика

4,7(41 оценок)

Program kolichestvo; //числа вводим последовательно,через enter uses crt; var chisla: array[1..7] of integer; i,k: integer; begin for i: =1 to 7 do begin readln(chisla[i]); if chisla[i]< 0 then k: =k+1; end; writeln('количество отрицательных чисел последовательности: ',k); end.