uses Graphabc;
begin
SetwindowWidth(600);
setwindowheight(400);
SetPenWidth(2);
setpencolor(clblack);
circle(500,100,50);
floodfill(500,100,clyellow);
line(250,100,300,50);
line(300,50,350,100);
line(350,100,250,100);
floodfill(300,70,clgreen);
line(225,200,300,100);
line(300,100,375,200);
line(375,200,225,200);
floodfill(300,150,clgreen);
line(200,300,300,200);
line(300,200,400,300);
line(400,300,200,300);
floodfill(300,250,clgreen);
rectangle(285,300,315,325);
floodfill(300,310,clbrown);
line(0,300,100,350);
line(100,350,200,325);
line(200,325,400,325);
line(400,325,600,375);
line(600,375,2000,375);
floodfill(50,350,clgreen);
end.
Program fgg;
const
b = 7;
var
a, s, r: Integer;
begin
for a := - 10 to 10 do
Writeln('s=', a + b, ' ', 'r=', a - b);
a := a + 5;
end.
Program task1;
const
n = 10;
var
a :array [1..n] of real;
i, j :integer;
min, k :real;
begin
for i:= 1 to n do
readln(a[i]);
min:= a[1];
for i:= 1 to n do
if a[i] < min then
begin
min:= a[i];
j:= i;
end;
k:= a[n];
a[n]:= a[j];
a[j]:= k;
end.
program task2;
const
n = 10;
var
a :array [1..n] of integer;
i, j, kol :integer;
begin
for i:= 1 to n do
readln(a[i]);
kol:= 0;
for i:= 1 to n do
if a[i] mod 3 = 0 then
inc(kol);
for i:= 1 to n do
if a[i] = kol then
begin
j:= i;
break;
end;
writeln(j);
end.
Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.