Ответы
Ответ дал:
1
const N = 3;
# если что можно хоть 5, хоть 69, хоть 420
type
arrtype = array[1..N] of integer;
var
arr: arrtype;
i: byte;
avrg: real;
procedure fill_array(var a: arrtype);
begin
for i:=1 to N do a[i]:=random(50)+1;
end;
function average(a:arrtype):real;
var sum:integer;
begin
sum := 0;
for i:=1 to N do sum:=sum+a[i];
average := sum / n;
end;
begin
randomize;
fill_array(arr);
for i:=1 to N do write(arr[i]:4);
writeln;
avrg := average(arr);
writeln(avrg:3:2);
end.
NastyaTuznikova:
Я просила в пайтоне, но все равно спасибо)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад