Найти среднее арифметическое 6 рандомных чисел до 100 в массиве
Answers & Comments
Эклео
Const n=6; var sa: real; i: integer; var a: array[1..n] of integer; begin sa:=0; for i:=1 to n do begin a[i]:=random(101); write (a[i]:4); sa:=sa+a[i]; end; sa:=sa/n; writeln; writeln ('Среднее арифметическое = ',sa) end. ----------результат:------------ 97 37 88 35 39 55 Среднее арифметическое = 58.5
Answers & Comments
var
sa: real;
i: integer;
var a: array[1..n] of integer;
begin
sa:=0;
for i:=1 to n do begin
a[i]:=random(101);
write (a[i]:4);
sa:=sa+a[i];
end;
sa:=sa/n;
writeln;
writeln ('Среднее арифметическое = ',sa)
end.
----------результат:------------
97 37 88 35 39 55
Среднее арифметическое = 58.5