Смотри вложение
и в следующий раз пиши хотя бы номер задания
const n=21;
var a:array[1..n] of integer;
sr:array[1..3] of real;
k,s,i,j:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(11);
write(a[i],' ');
end;
writeln;
k:=n div 3;
for j:=0 to 2 do
begin
s:=0;
for i:=1 to k do s:=s+a[j*k+i];
sr[j+1]:=s/k;
end;
for j:=1 to 3 do write(sr[j]:4:2,' ');
end.
Пример:
3 5 9 10 10 7 7 3 2 10 3 6 5 10 1 7 8 6 9 5 6
7.29 5.57 6.00
Стобиком:
10011 +
110111
~~~~~~~~~
1001010
Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10