задача по паскалю
15 случайных чисел [13,72]
— все числа стоящие на четных местах и делящиеся на 5 заменить нулями.
— числа на нечетных местах кратные 3 заменить на -1
— остальные заменить 1
Ответы:
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.