Вопрос от посетителя
с клавиатуры вводится среднесуточная температура за октябрь определите количество дней в которые были заморозки
Программу надо в паскале написать
Отвечает Илюха:
program a1;
uses crt;
var a:array[1..31] of longint;k,i:integer;
begin
clrscr;
for i:=1 to 31 do begin
write(‘Введите температуру ‘,i,’ числа:’);
readln(a[i]);
if a[i]<0 then k:=k+1;
end;
writeln(‘ Количество дней в которые были заморозки = ‘, k);
readln
end.
P.S. Если паскаль ABC, то выделенное писать не обязательно