Question

помогите сделать PascalABC

Answer 1

1)program znanija;

uses CRT;

Var n,k,i,ch,nch: integer;

sa: real;

M: Array[1..100] of integer;

begin

writeln('--Числа до--');

for k:=1 to 100 do

begin

M[k]:=random(200)-100; Write(m[k],', ');

end;

for k:=1 to 100 do

begin

for i:=1 to 100 do

begin

If M[k] + M[i] = 0 then begin M[k]:= 0; M[i]:=0; end;

end;

end;

writeln;

writeln('--Числа после--');

for k:=1 to 100 do

begin

Write(m[k],', ');

end;

end.

2)program znanija;

uses GraphABC;

begin

rectangle(0,0,600,300);

line(275,75,325,75);

line(275,225,325,225);

line(275,75,275,125);

line(325,75,325,125);

line(275,175,275,225);

line(325,175,325,225);

line(225,125,225,175);

line(375,125,375,175);

line(225,125,275,125);

line(225,175,275,175);

line(375,125,325,125);

line(375,175,325,175);

FloodFill(2,2,clred);

end.