СРОООЧНО!Найдите средне арифметическое таблицы[1...10]Спасибо!
СРОООЧНО!Найдите средне арифметическое таблицы[1...10]Спасибо!
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
const n=10;
var a: array [1..n] of integer;
s,i: integer;
r: real;
begin
randomize;
for i:= 1 to n do
begin
a[i]:= random (20)-5;
write (a[i]:3);
s:=s+a[i];
end;
writeln;
r:=s/n;
write ('среднее арифметическое=',r);
end.
ГостьProgram Jessika;
const
n=10;
var
table: array [1..n] of integer;
sum,i: integer;
arifm: real;
begin
randomize;
sum:=0;
writeln ('элементы таблицы:');
for i:= 1 to n do
begin
table[i]:= random (101)-50;
write (table[i]:4);
sum:=sum+table[i];
end;
writeln();
arifm:=sum/n;
writeln ('Cреднее арифметическое таблицы равно ',arifm:3:2);
end.
Не нашли ответ?
Похожие вопросы