Предмет: Информатика,
автор: Lid333
помогите!
дан двухмерный массив "б" переписать в массив "а"в обратном порядке
(задача составляется в паскале)!
Ответы
Автор ответа:
0
Program primer;
Uses crt;
var i,n: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-50;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=n downto 1 do
write(a[i]:5);
readln;
end.
Uses crt;
var i,n: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-50;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=n downto 1 do
write(a[i]:5);
readln;
end.
Автор ответа:
0
спасибо большое!!!очень помогли!
Похожие вопросы
Предмет: История,
автор: senyaKlimovich
Предмет: Математика,
автор: yessirww
Предмет: Алгебра,
автор: 010220
Предмет: Математика,
автор: DemianOleh