Написать программу, которая выводит на экран таблицу степеней двойки - Turbo Pascal - Ответ 2075349

program tass;
uses crt;
var a,b,c,d,e,sred:real;
begin
clrscr;
writeln('введите 5 чисел');
readln(a,b,c,d,e);
sred:=(a+b+c+d+e)/5;
writeln('среднее арефмитическое=',sred:6:2);
readln;
end.

program sumasauti;
uses crt;
const n=10;
var a:array[1..n] of integer;
    b:array[1..n] of integer;
    c:array[1..n] of integer;
    sum1,sum2,sum3,i:integer;
    sr1,sr2,sr3:real;
begin
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(10)+1;
end;
for i:=1 to n do
begin
b[i]:=random(10)+1;
end;
for i:=1 to n do
begin
c[i]:=random(10)+1;
end;
sum1:=0;sum2:=0;sum3:=0;
for i:=1 to n do
begin
sum1:=sum1+a[i];
end;
for i:=1 to n do
begin
sum2:=sum2+b[i];
end;
for i:=1 to n do
begin
sum3:=sum3+c[i];
end;
sr1:=sum1/n;
sr2:=sum2/n;
sr3:=sum3/n;
for i:=1 to n do
begin
write(a[i],' ' );
end;
write('srednee arfmetich=',sr1:6:2);
writeln;
for i:=1 to n do
begin
write(b[i],' ' );
end;
write('srednee arefmitich=',sr2:6:2);
writeln;
for i:=1 to n do
begin
write(c[i],' ' );
end;
write('srednee arefmitich=',sr3:6:2);
readln;
end.