Question

Сформировать одномерный массив с помощью генератора случайных чисел. Количество элементов 10. Диапазон [-20;10]. Нечетные элементы заменить на 1, четные элементы заменить на 0. Вывести массив в столбик.
Решить в Pascal очень срочно пожалуйста

Answer 1

Ответ:

const

n = 10;

var

a: array [1..n] of integer;

i: integer;

begin

Randomize;

Writeln('Исходный массив:');

for i := 1 to n do

begin

a[i] := Random(11) - 5;

Write(a[i], #32);

end;

Writeln;

Writeln('Полученный массив:');

for i := 1 to n do

begin

if a[i] mod 2 <> 0 then

a[i] := -a[i];

Write(a[i], #32);

end;

Readln

end.