СРОЧНО!! ПОМОГИТЕ!!

+ 0 -

Marinkon03

21 марта 2017 г., 17:34:51 (7 лет назад)

var
i:integer;
a: array[1..15] of integer;
begin   
randomize;   
for i := 1 to 15 do
begin       
a[i] := random (60) + 13;       
write (a[i]:5)   
end;   
for i := 1 to 15 do
begin       
 if ((i mod 2) = 0) and ((a[i] mod 5) = 0) then         
a[i] := 0       
 else     
  if ((i mod 2) <> 0) and ((a[i] mod 3 )= 0) then         
  a[i] := -1       
else       
 a[i] := 1;       
end;   
for i := 1 to 15 do       
 write (a[i]:5);
readln;
end.