З новою. думкою і новими словами
Мне кажется что второе но это кому-как.
if a mod 2= 0 then - это ты проверяешь на четность
n:=0;
если условие соблюдается n:=n+1- то n:=0+1
Если есть заварка, то я пойду пить чай, иначе не пойду.
Program Project1;
var m:array [0..19] of integer; i:integer;
begin
for i:=0 to 19 do begin
m[i]:=20-Random(30);
if m[i]<0 then m[i]:=m[i]*-1;
writeln(m[i]);
end;
readln;
end.