Задан массив из 19 случайных чисел из промежутка от -20 до 20.Вывести элементы массива в строку, а во вторую строку в обратном порядке.
Answers & Comments
blowberryninja
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.
Answers & Comments
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.