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