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

Question

58

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

mikhah · Accepted Answer

78

mikhah

02 апреля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: