Заполнить массив из 20 элементов целыми числами из диапазона от 20 до 1 так, чтобы они образовали убывающую последовательность.
Заполнить массив из 20 элементов целыми числами из диапазона от 20 до 1 так, чтобы они образовали убывающую последовательность.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var mass : array[1..20] of integer;
i,n : integer;
begin
n:=20;
for i:=1 to 20 do
begin
mass[i]:=n;
dec(n);
end;
end.