Задайте массив из нечетно-отрицательных 10 чисел

Question

Антонина Гришина

Информатика

18 августа, 16:53

Задайте массив из нечетно-отрицательных 10 чисел

+4

Ответы (1)

Знаешь ответ на этот вопрос?

Мирослава Степанова · Answer 1

Pascal:

var

arr : array [1 ... 10] of integer;

i, number : integer;

begin

i : = 1;

number : = - 1;

for i : = 1 to 10 do

begin

arr[i] : = number;

number : = number - 2;

end;

for i : = to 1 do 10

writeln (arr[i]);

end.