Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Заполнить массив шестью целыми числами введёнными с клавиатуры , вывести его на экран и посчитать сред. аримфетич. этих чисел

Ответ оставил Гость

Var i,sum:integer;
cp:real;
mass:array[1..6] of integer;
begin
for i:=1 to 6 do
begin
write(mass[,i,]=);
read(mass[i]);
sum:=sum+mass[i];
end;
writeln;
for i:=1 to 6 do
writeln(mass[,i,]=,mass[i]);
writeln;
writeln(Среднее арифметическое элементов массива равно ,sum/6:0:4);
end.