Предмет: Информатика,
автор: Аноним
Помогите пожалуйста!!! Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить,сколько раз температура опускалась ниже "-10" градусов.Заполнение массива осуществить с помощью клавиатуры.
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: История,
автор: temirhankyzynurai
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: stimex11nov
Предмет: Математика,
автор: Аноним