СРОЧНО!! ПОМОГИТЕ!!задача по паскалю15 случайных чисел [13;72]- все числа стоящие на четных местах и делящиеся на 5 заменить нулями.- числа на нечетных местах кратные 3 заменить на -1- остальные заменить 1
СРОЧНО!! ПОМОГИТЕ!!
задача по паскалю
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.
Не нашли ответ?
Похожие вопросы