Вопрос помогите срочно в pascal abc Дан массив из N элементов. Все элементы массивы расположить в обратном
- Автор темы Андруй
- Дата начала
Re: помогите срочно в pascal abc Дан массив из N элементов. Все элементы массивы расп
a:array[1..100]of integer;
i,n:integer;
begin
writeln('Enter N');
readln
;
randomize;
for i:=1 to n do begin
a:=random(100);
write(a:4);
end;
writeln;
for i:=n downto 1 do
write(a:4);
end.[/THIDE]
[THIDE="0"]var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('Enter N');
readln
;randomize;
for i:=1 to n do begin
a:=random(100);
write(a:4);
end;
writeln;
for i:=n downto 1 do
write(a:4);
end.[/THIDE]
const N = 9; var c: array [0..N] of integer; i,s: integer; begin for i := 0 to N do read (c); i := 0; for i := 0 to N div 2 do begin s := c[N-i]; c[N-i] := c; c := s; end; i := 0; for i := 0 to N do writeln (c); readln; end. Меняешь константу (длинна массива) и тип переменной массива и всё.
а вот не распечатка в обратном порядке, а изменение массива for j:=1 to n div 2 do begin b:=a[j]; a[j]:=a[n-j+1]; a[n-j+1]:=b; end; а теперь распечатай его, и он будет в обратном порядке
Не вздумай платить «Зотикову» -который тебе ответил, РЕШАЕТ НЕВЕРНО ВСЕМ-будет у тебя деньги выпрашивать за решения–кидает тут всех тупо на бабки! Сидит на даче безработный старпёр беззубый импотент С НЕМЫТЫМИ САЛЬНЫМИ ВОЛОСАМИ и кидает студентов!!! Моего друга обул на 320 руб–денег не вернул!!! У этого мошенника Зотикова есть еще страницы-ИХ УЖЕ ЗАКРЫЛИ ЗА МОШЕННИЧ-ВО-он с трёх страниц кидает одновременно!!! Имя сменил только.
var i, n: integer; a: array [1..100] of integer; begin n:=10; for i:=1 to n do begin a:=random (100); write (a:4); end; writeln; for i:=n downto 1 do begin write (a:4); end; end.