Напишите на формальном языке программирования программу обработки двух переменных с целью нахождения наибольшего общего делителя

263

374

Посмотреть ответы 1

Ответы на вопрос:

sd16sv

Информатика

4,7(12 оценок)

Var a: array of integer; n, i: integer; begin randomize; write('введите размерность массива: '); readln(n); setlength(a, n); writeln('массив: '); for i : = 0 to n - 1 do begin a[i] : = random(21) - 10; write(a[i]: 5); end; writeln; writeln('результат деления отрицательных элементов на 2: '); for i : = 0 to n - 1 do begin if a[i] < 0 then write(a[i] / 2: 5) else write(a[i]: 5) end; end.