var a: array [1..9] of real; sum: real; I: integer;
begin for I := 1 to 9 do begin write('a[', I, '] = '); readln(a[I]); sum := sum + a[I]; end; writeln('Среднее арифметическое введённых чисел = ', sum/9); end.
Информатика-это наука,изучающая виды информации её получения,хранения и передачи. География-это наука,о природе нашей планеты и о законах,по которым она живет и развивается. Фонетика-это раздел науки о звуках русского языка Ботаника-это раздел науки о изучении растений Имя сущ-это самостоятельная часть речи,которая отвечает на вопросы кто? что? и обозначает предмет Глагол-это самостоятельная часть речи,которая отвечает на вопросы что сделать?что делать? и др. обозначает действие предмета Тяж.промышленность-это группа отраслей промышлености,производящих преимущественно средства произовдства. Легкая промышленность-это отрасль народного хоз.,производящая потребительские товары.
Не будет работать если у переменной "а" будет максимальное значение если a>b то M:=a if a>b then M:=a; иначе M:=b всё else M:=b; если c>b то M:=c if c>b then M:=c иначе M:=b всё else M:=b; если a>c то M:=a if a>c then M:=a иначе M:=c всё else M:=c;
var
a: array [1..9] of real;
sum: real;
I: integer;
begin
for I := 1 to 9 do
begin
write('a[', I, '] = ');
readln(a[I]);
sum := sum + a[I];
end;
writeln('Среднее арифметическое введённых чисел = ', sum/9);
end.