Составить программу нахождения среднего арифметического элементов массива состоящий из 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.

желтый знак - нехватка памяти

все остальное - размер  

телевидение

радиовещание

интернет

газеты и т.д