Напишите программу, которая вводит с клавиатуры 15 целых чисел, организовывает их хранение в одномерном массиве, а затем определяет среднее
Ответы
Ответ дал:
0
var
mas:array[1..15] of integer;
a,c:integer;
begin
c:=0;
for a:=1 to 15 do
begin
writeln('Введите число:1');
readln(mas[a]);
c:=c+mas[a];
end;
writeln('Среднее=',c/a);
end.
mas:array[1..15] of integer;
a,c:integer;
begin
c:=0;
for a:=1 to 15 do
begin
writeln('Введите число:1');
readln(mas[a]);
c:=c+mas[a];
end;
writeln('Среднее=',c/a);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад