составить программу нахождения среднего арифметического элементов массива состоящий из 5 элементов
program mas;
var...............
.........
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.
Будет передано через 460 800 секунд.