Delphi

[~Az@liya~]

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

[Chudo4258]

s:=0;
for i:=1 to 7 do
 begin write(i,' день: '); readln(a[i]); s:=s+a[i]; end;
Writeln('Средняя: 's/7);

[~Az@liya~]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
a,s,i:integer;
begin
s:=0;
for i:=1 to 7 do
begin
writeln(i,' Ponedelnik: 30');
readln(a[i]);
writeln(i,' Vtornik: 25');
readln(a[i]);
writeln(i,' Sreda: 28');
readln(a[i]);
writeln(i,' Chetverg: 33');
readln(a[i]);
writeln(i,' Pyatnica: 29');
readln(a[i]);
writeln(i,' Sybbota: 30');
readln(a[i]);
writeln(i,' Voskresenie: 27');
readln(a[i]);
s:=s+a[i];
end;
Writeln('Средняя: 's/7);
end.

[Xetag]

Мне зачли такую
program Temperatura;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a:array[1..7] of integer;
i,summazanedely:integer;
sredtemp:real;

begin
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15);
write(a[i],' ');
end;
summazanedely:=0;
for i:=1 to 7 do
summazanedely:=summazanedely+a[i];
writeln;
writeln('sredtemp ',summazanedely/7:2:2);
readln;



end.

[Roof]

2 ~Az@liya~ - переделал немного твою.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  //массив дней
  Days: array[1..7] of string =
  ('Ponedelnik', 'Vtornik', 'Sreda', 'Chetverg', 'Pyatnica', 'Subbota',
    'Voskresene');
var
  i: integer;
  t, sumt, srt: real;
    //температура в опред. день, суммарная и средняя температуры

begin
  sumt := 0;
  srt := 0;
  //считываем температуру каждого дня
  for i := 1 to 7 do
  begin
    writeln('Vvedite temperaturu v den ', days[i]);
    readln(t);
    sumt := sumt + t;
  end;
  srt := sumt / 7; //считаем среднюю температуру
  writeln('Srednyaya temperatura za nedelyu = ', srt: 4: 2);
    //выводим результат
  readln;
end.

[MadReason]

все. если ты делаешь цикл, то зачем в цикле 7 дней?
"а" описан как переменная типа integer, а используешь как массив

Writeln('Средняя: ',s/7);

запятая пропущена

[~Az@liya~]

Спасибо вам всем огромное!!!!!)))) Вы мне очень помогли!!!

[Ignessa]

Помогите,пожалуйста,написать анимацию в delphi 7:рыбку в аквариуме или ползающего жука или божью коровку...нужен полностью текст анимации от начала до конца...