НУЖНА Программка НА ТУРБО ПАСКАЛЕ!!!!!!!!Имеются два одномерных массива А, В длиной
НУЖНА Программка НА ТУРБО ПАСКАЛЕ!!!!!!!!Имеются два одномерных массива А, В длиной n, где n- нечетное число. Поменять в каждом из массивов элементы местами 1-ый с заключительным, 2-ой с предпоследним и т.д. Длину массивов запросить у юзера. Элементы массивов А и В сформировать с поддержкою функции random (10) в одном цикле. В программке оформить две процедуры: для перестановки частей массива и для вывода массива на экран. Вывести на чистый экран начальные и полученные массивы.
Задать свой вопрос1 ответ
Юрий Васнецов
Uses Crt;
const
nn=100;
type
mas=array[1..nn] of integer;
procedure MySwap(var a:mas; n:integer);
var
i,t:integer;
begin
for i:=1 to n div 2 do begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t
end
end;
procedure MyPrint(txt:string; a:mas; n:integer);
var
i:integer;
begin
Write(txt);
for i:=1 to n do Write(a[i],' ');
Writeln
end;
var
i,n:integer;
a,b:mas;
begin
ClrScr;
Write('n='); Readln(n);
ClrScr;
Randomize;
for i:=1 to n do begin
a[i]:=Random(10);
b[i]:=Random(10)
end;
MyPrint('Исходный А : ',a,n);
MySwap(a,n);
MyPrint('Итог А: ',a,n);
MyPrint('Исходный B : ',b,n);
MySwap(b,n);
MyPrint('Итог B: ',b,n);
ReadKey
end.
const
nn=100;
type
mas=array[1..nn] of integer;
procedure MySwap(var a:mas; n:integer);
var
i,t:integer;
begin
for i:=1 to n div 2 do begin
t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t
end
end;
procedure MyPrint(txt:string; a:mas; n:integer);
var
i:integer;
begin
Write(txt);
for i:=1 to n do Write(a[i],' ');
Writeln
end;
var
i,n:integer;
a,b:mas;
begin
ClrScr;
Write('n='); Readln(n);
ClrScr;
Randomize;
for i:=1 to n do begin
a[i]:=Random(10);
b[i]:=Random(10)
end;
MyPrint('Исходный А : ',a,n);
MySwap(a,n);
MyPrint('Итог А: ',a,n);
MyPrint('Исходный B : ',b,n);
MySwap(b,n);
MyPrint('Итог B: ',b,n);
ReadKey
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов