profile
Опубликовано 4 года назад по предмету Информатика от denisgrebenshh

1.     Напишите программу, 
которая  запрашивает температуру
воздуха в течение недели и запоминает введённые значения в массиве
temper, затем вычисляет среднее значение температуры.

  1. Ответ
    Ответ дан ZaharovVasya
    Var temper:array[1..7] of integer; i,S:integer; sa:real;
    Begin
    writeln('Введите 7 значений температуры воздуха: ');
    S:=0;
    for i:=1 to 7 do begin
    readln(m[i]);
    S:=S+m[i]; end;
    sa:=S/7;
    writeln(sa);
    readln;
    end.