Составить программу нахождения среднего арифметического элементов массива состоящий из 5 элементов program mas;

var mas: array[1..5] of integer; i,sum: integer; sr: real; begin for i: =1 to 5 do begin readln (mas[i]);     //заполняем массив sum: =sum+mas[i];   //находим сумму элементов массива end; sr: =sum/5;   //находим среднее арифметическоеwriteln (sr); end.

1.Информация - это любое сведение которое человек получает от окружающего мира с органов чувств. 2. Визуальная,  аудиальная , тактильная,  обонятельная,  вкусовая. 4. 1) Текстовая,  числовая,  звуковая,  графическая,  видеоинформация,  2)текстовой- лист с текстом, текстовый документ. б)числовой- уравнение, запись чего-либо в двоичном коде. в)графических- картина, рисунок, png.-изображение. Интернет, книги и картинки. 6. Вы учитель (вы источник информации) вас слушают ученики ( они являются приёмником информации).  вы встретились с подругой. она рассказывает вам что то. вы в этом случае вы приёмник информации , а ваша подруга источник. 7. с зрения.

type

ar = array of array of integer;

var

sum:array [1..6] of integer;

n,i,j:integer;

a: ar;

begin

write('N: '); readln(n);

setlength(a,n,n);

dec(n);

for i:=0 to n do

for j:=0 to n do

begin

readln(a[i,j]);

if i+j<n then sum[5]:=sum[5]+a[i,j]

else

if i+j>n then sum[6]:=sum[6]+a[i,j]

else sum[2]:=sum[2]+a[i,j];

if i<j then sum[3]:=sum[3]+a[i,j]

else

if j<i then sum[4]:=sum[4]+a[i,j]

else

sum[1]:=sum[1]+a[i,j];

end;

writeln;

for i:=0 to n do

begin

for j:=0 to n do

write(a[i,j]:4);

writeln;

end;

writeln;

for i:=1 to 6 do

write(sum[i]:6);

end.

Если решение оказалось полезным, пометьте его лучшим