Question

Известны данные о температуре воздуха в течение августа. Определите максимальную температуру в августе.

Answer 1

program mas_max_temp_avg;

const n=31;

var

a:array[1..n]of integer;

i,m:integer;

begin

for i:=1 to n do

begin

a[i]:=random(30)+5;

writeln(i,' день》',a[i],'°');

//или этот оператор//read(a[i]);

end;

writeln('Ищем максимальную температуру...');

m:=a[1];

for i:=1 to n do

if a[i]>m then

m:=a[i];

writeln('Жарко было ');

for i:=1 to n do

if a[i]=m then

write(i,'-го ');

writeln;

write(' числа')

end.