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

Ответы 1

  • Program Pr1;uses crt;var mas:array[1..30] of integer; i,p:integer;Beginclrscr;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.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years