Помогите пожалуйста!!! Данные по температуре воздуха за декаду ноября хранятся в

Помогите пожалуйста!!! Данные по температуре воздуха за декаду ноября хранятся в массивеюопределить,сколько раз температура опускалась ниже "-10" градусов.Наполнение массива выполнить с подмогою клавиатуры.

Задать свой вопрос
1 ответ

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]lt;-10 then p:=p+1;
writeln(p);
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт