Информатика, опубликовано 2018-08-22 22:35:21 by Гость
Помогите пожалуйста. Дан массив А: array [1..30] of real. Создать программу для нахождения среднего арифметического всех элементов массива. Спасибо)
Ответ оставил Гость
uses crt;
var a:array [1..30] of real; i:integer; sr,s:real;
begin
clrscr;
randomize;
s:=0;
for i:=1 to 30 do
begin
a[i]:=random(100)-50;
write(a[i], );
s:=s+a[i];
end;
sr:=s/30;
write(sr=,sr);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.