Паскаль (I семестр) / K01-172 / 04 / m3

program m_3;
const
n=5;
rtop=99;
rbottom=1;
type
mas=array[1..N] of integer;

procedure fill(var m:mas;l:integer);
var
i:integer;
begin
randomize;
for i:=1 to l do
m[i]:=rtop-random(rtop-rbottom);
end;
procedure output(m:mas;l:integer);
var
i:integer;
begin
for i:=1 to l do
write(m[i],' ');
writeln;
end;
procedure process(var m:mas;l:integer);
var
i:integer;
begin
for i:=1 to l do
if m[i] mod 3 =0 then
m[i]:=0;
end;

var
myarr:mas;
begin
fill(myarr,N);{§ Ї®«­Ґ­ЁҐ ¬ ббЁў  б«гз ©­л¬Ё зЁб« ¬Ё}
writeln('€б室­л© ¬ ббЁў:');{ўлў®¤ Ёб室­®Ј® ¬ ббЁў }
output(myarr,N);
process(myarr,N);{¬Ґ­пҐ¬ зЁб« , ¤Ґ«пйЁҐбп ­  3 ­  ­®«ЁЄЁ }
writeln('Џ®«г祭­л© ¬ ббЁў:');{ўлў®¤ Ї®«г祭­®Ј® ¬ ббЁў }
output(myarr,N);

readln;
end.