Помогите пожалуйста по информатике !!!! Срочно!!!! Дам много баллов))).

Question

Помогите пожалуйста по информатике !!!! Срочно!!!! Дам много баллов))).

---

Answer 1

1.

var a,i,m:integer;

begin

for i:=1 to 12 do

begin

a:=random (14)+5;

if a > m then m:=a;

write(a,' ')

end;

writeln;

writeln('max = ',m)

end.

2.

var a,i,k:integer;

begin

for i:=1 to 7 do

begin

a:=random (15)+1;

if a mod 2 = 0 then k:=k+1;

write(a,' ')

end;

writeln;

writeln('Чётных ',k)

end.