Задан массив из 19 случайных чисел из промежутка от -20 до 20.Вывести элементы массива в строку, а во вторую строку в обратном порядке.
Задан массив из 19 случайных чисел из промежутка от -20 до 20.Вывести элементы массива в строку, а во вторую строку в обратном порядке.
Гость
Ответ(ы) на вопрос:
Гостьprogram nancik;
var a:array[1..19] of integer;
n,i:integer;
begin
for i:=1 to 19 do begin
a[i]:=random(40)-20;
write(a[i],' ');
end;
writeln;
for i:=19 downto 1 do
write(a[i],' ');
end.
Не нашли ответ?
Похожие вопросы