Нужно написать программу в паскале. Срочно, помогите пожалуйста

Question

Нужно написать программу в паскале. Срочно, помогите пожалуйста. Дан массив с температурам за январь от -35 до 35. Определить самый теплый день, дни, когдатемпература была больше нуля.

Answer 1

45

serdgon-Олейник

30 марта 2023

var a: array[1… 31] of integer; i, index: integer; begin randomize; index: =1; writeln ('Температура по дням: '); for i: =1 to 31 do begin a[i]: =random (71) — 35; writeln ('a[', i, ']=',a[i]); if a[i] > a[index] then index: =i; end; writeln; writeln ('Самы теплый день — ', index, ' ,t=', a[index]); writeln ('Дени в котрых температура была > 0'); for i: =1 to 31 do if a[i] > 0 then write (i, '); readln; end.

пользователи выбрали этот ответ лучшим

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

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

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

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