Лена в октябре ежедневно записывала показания температур в дневник наблюдений составьте программу, которая выводит количество дней с температурой меньше 0 градусов. составьте компьютерную программу на языке паскаль.

164

222

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

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

yulia398

Информатика

4,4(85 оценок)

Два варианта : с массивом и без с) var a: array[1..100] or integer; n[коммент от автора: кол-во дней],k,i: integer; begin readln(n) [коммент от автора: можно вручную записать если не дается]; for i: =1 to n do read(a[i]); k: =0; for i: =1 to n do if a[i]< 0 then k: =k+1; writeln(k); end. без массива var n,k,c,i: integer; begin readln(n); k: =0; for i: =1 to n do begin c: =0; readln(c); if c< 0 then k: =k+1; end; writeln(k); end.