Random ВЕРНЫЙ и не надо со мной спорить! Там четко написано максимальное значение 45, минимальное значение 0-15=-15
Если человек. кторый пишет здесь ТАКОЕ ПРОСТОЕ задние не в состоянии самостоятельно его решить это значит ОДНО, что если его решение будет сложным, значит это не он сам решал!!
Program W; Var A:array [1..20] of integer; I,j:integer;
Begin
j:=0; For I:=1 to 20 do begin A[i]:=random(60)-15; If A[i] mod 2 =0 then inc(j); end;
Random ВЕРНЫЙ и не надо со мной спорить! Там четко написано максимальное значение 45, минимальное значение 0-15=-15
Если человек. кторый пишет здесь ТАКОЕ ПРОСТОЕ задние не в состоянии самостоятельно его решить это значит ОДНО, что если его решение будет сложным, значит это не он сам решал!!
Program W;
Var A:array [1..20] of integer;
I,j:integer;
Begin
j:=0;
For I:=1 to 20 do begin
A[i]:=random(60)-15;
If A[i] mod 2 =0 then inc(j); end;
Write(j);
End.