Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива
Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 и вычисляет среднее арифметическое элементов массива
Гость
Ответ(ы) на вопрос:
Гостьvar
ar:array[1..10] of integer;
sr,i:integer;
begin
randomize;
for i:=1 to 10 do begin
ar[i]:=random(11);
sr:=sr+ar[i];
end;
writeln('Среднее арифметическое равно = ',sr/10);
end.
Не нашли ответ?
Похожие вопросы