Код в Turbo Pascal: USES Graph,CRT; VAR x,y,dx,dy,Device,Mode,i: Integer; BEGIN Device:=0; InitGraph(Device,Mode,''); x:=10; y:=10; dx:=1; dy:=1; i:=1; Repeat SetColor(Cyan); Circle(x,y,10); SetFillStyle(1,3); FloodFill(x,y,Cyan); Delay(10); SetColor(Black); Circle(x,y,10); SetFillStyle(1,0); FloodFill(x,y,Black); x:=x+dx; y:=y+dy; if (x>300) OR (y>200) then begin x:=10; y:=10; i:=i+1; end;
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=ArrRandom(ReadInteger('n='),-99,99); b.Println;
(var ma,var mb):=(a.Average,b.Average); // средние арифметические
var s:=ma+mb; // их сумма
Writeln('Среднее арифметическое массива а: ',ma);
Writeln('Среднее арифметическое массива b: ',mb);
Writeln('Их сумма: ',s)
end.
Пример
n= 12
9 -55 -14 -60 -90 56 60 -89 -9 18 -37 -29
n= 15
47 -53 4 22 38 -46 -74 -77 -74 -67 -67 -93 73 5 -16
Среднее арифметическое массива а: -20
Среднее арифметическое массива b: -25.2
Их сумма: -45.2