Question

Дам 50 баллов!
Составьте, пожалуйста, программу на паскале:
В массиве хранится информация о количестве осадков, выпавших за каждый день июля. Определить самый жаркий день.

Answer 1

var   july : array [1..31] of integer;  

i, max : integer;

begin  

randomize;  

max := -100;  

writeln('температура в июле по дням:');  

for i := 1 to 31 do  

begin        

july[i] := random(25) + random(15);    

write(july[i]:4);    

if july[i] > max then max := july[i]  

end;  

writeln('дни с максимальной температурой (равной ', max, ' гр. С):');  

for i := 1 to 31 do    

if july[i] = max then      

write(i, ' июля ');  

readln end.

там если что меняй)

если неправильно репортани (сори)