Феклист
6 год назад
Найти среднее арифметическое элементов целочисленного массива ,кол-во элементов 8
ОТВЕТЫ
Парфений
Jul 6, 2019
Program sr;
var
a: array[1..8] of integer;
i, s: integer;
avg: real;
begin
s := 0;
for i := 1 to 8 do
begin
write(a[, i, ] = );
readln(a[i]);
s := s + a[i];
end;
avg := s / 8;
writeln(среднее: , avg);
end.
var
a: array[1..8] of integer;
i, s: integer;
avg: real;
begin
s := 0;
for i := 1 to 8 do
begin
write(a[, i, ] = );
readln(a[i]);
s := s + a[i];
end;
avg := s / 8;
writeln(среднее: , avg);
end.
295
Смежные вопросы:
