Заполнить массив из 20 элементов целыми числами из диапазона от 20 до 1 так, чтобы они образовали убывающую последовательность.
Заполнить массив из 20 элементов целыми числами из диапазона от 20 до 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.