uses graphabc;
begin
SetPenWidth(2);
rectangle (100,100,500,300);
line(300,100,300,300);
moveto(100,100);
lineto(200,50);
lineto(400,50);
lineto(500,100);
line(200,50,300,100);
SetBrushColor(clGray);
rectangle(150,150,250,250);
end.
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12
<span>moveForward();
turnLeft();
moveForward();
turnRight();
moveForward<span>(); 2-й уровень
</span></span>