Помогите пожалуйста!!! Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить,сколько раз температура опускалась ниже "-10" градусов.Заполнение массива осуществить с помощью клавиатуры.
Ответы на вопрос
Ответил Ghost22
0
Program Pr1;
uses crt;
var mas:array[1..30] of integer;
i,p:integer;
Begin
clrscr;
for i:=1 to 30 do begin
writeln('T za ',i,' den');
readln(mas[i]);
end;
p:=0;
for i:=1 to 30 do if mas[i]<-10 then p:=p+1;
writeln(p);
end.
Новые вопросы
Математика,
6 лет назад
Математика,
6 лет назад
История,
9 лет назад
Физика,
9 лет назад
Алгебра,
10 лет назад