массив

[ADB]

Создайте календарь температур за март месяц. Для этого заполните случайными целыми числами из промежутка от 0 до 27 массив из 30 элементов. Определите среднюю, самую низкую и самую высокую температуру за март.

[ByAlex]

Сообщение от ADB

Создайте календарь температур за март месяц. Для этого заполните случайными целыми числами из промежутка от 0 до 27 массив из 30 элементов. Определите среднюю, самую низкую и самую высокую температуру за март.

Вот -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  n=30;
var
  Mas:array[1..n] of integer;
  SrTem:real;
  i,min,max:integer;
begin
  writeln('Massive is - ');
  for i := 1 to n do
  begin
    Mas[i]:=random(28);
    write(Mas[i],' ');
  end;
  min:=Mas[1];
  Max:=mas[1];
  SrTem:=0;
  for i := 1 to n do
  begin
    if Mas[i]<min then
      min:=mas[i]
    else
    if Mas[i]>max then
      max:=mas[i];
    SrTem:=SrTem+mas[i];
  end;
  writeln;
  write('Max = ',max,' Min = ',min,' SredTemp = ', (SrTem/n):4:2);
  readln;
end.

[Sab_zero]

program kalendar;
var a:array[1..30] of integer;
max,min,sr,i:integer;
begin
randomize;
for i:=1 to 30 do begin
a[i]:=random(28);write(a[i],' ');end;writeln;
max:=a[1];
min:=a[1];
sr:=a[i];
for i:=2 to 30 do begin
if a[i]>max then max:=a[i]; 
if a[i]<min then min:=a[i];
sr:=sr+a[i];end;
sr:=sr div 30;
write('max=',max,' ','min=',min,' ','sredn=',sr);
end.