Одномерный массив из 7 элементов заполнить случайным образом числами от 1 до 15.Преобразовать массив таким образом,чтобы каждому элементу присваивалось значение предыдущего,при этом первому элементу должно присвоиться значение ...
Одномерный массив из 7 элементов заполнить случайным образом числами от 1 до 15.Преобразовать массив таким образом,чтобы каждому элементу присваивалось значение предыдущего,при этом первому элементу должно присвоиться значение последнего элемента таблицы. Вывести на экран монитора первоначальный и преобразованный массивы в столбик(столбики должны быть расположены рядом).
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do a[i]:=random(15)+1;
b[1]:=a[7];
for i:=2 to 7 do b[i]:=a[i-1];
for i:=1 to 7 do writeln(a[i]:4,b[i]:4);
end.
Не нашли ответ?
Похожие вопросы