Решите, пожалуйста, очень прошу

+ 0 -

Bochkareva23

12 авг. 2014 г., 18:22:32 (9 лет назад)

var
  i,nmax,nmax:integer;
  a:array[1..30]of integer;
begin
for i:=1 to 30 do
  begin
  a[i]:=random(10,40);
  write(a[i],' ');
  if a[i]>max then
    begin
    max:=a[i];
    nmax:=i;
    end;
  end;
writeln;
writeln('Максимальная температура :',max,'; номер: ',nmax);
end.

var
  i:integer;
  s:real;
  a:array[1..30]of integer;
begin
for i:=1 to 30 do
  begin
  a[i]:=random(10,40);
  write(a[i],' ');
  s:=s+a[i];
  end;
writeln;
s:=s/30;
writeln('Средняя температура :',s:3:1);
end.

+ 0 -

MEAToff

12 авг. 2014 г., 19:51:56 (9 лет назад)

1 вариант:
Const N=30;
var
a: array [1..N] of integer;
i, max: integer;
begin
for i:=1 to N do readln (a[i]);
max:= 10;