Вопрос по информатике:
Сформировать два массива содержащих n элементов.Отсортиропять первые по возрастанию,а второй по убывания.Вывести на экран.З
атем первый массив просумировать со вторым,а из второго вычесть первый
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.01.2018 22:10
- Информатика
- remove_red_eye 9887
- thumb_up 6
Ответы и объяснения 1
Uses
crt;
const
n = 100;
var
a: array [1..n] of integer;
b: array [1..n] of integer;
i, j, m: byte;
p1, p2: integer;
begin
write('Количество элементов: ');
readln(m);
clrscr;
writeln('Ввод массива A');
writeln;
for i:=1 to m do
begin
write('A[',i,']: ');
readln(a[i]);
end;
clrscr;
writeln('Ввод массива B');
writeln;
for i:=1 to m do
begin
write('B[', i, ']: ');
readln(b[i]);
end;
clrscr;
writeln;
writeln('Исходный массив А:');
for i:=1 to m do write(a[i]:4);
writeln; writeln; writeln('Исходный массив B:');
for i:=1 to m do write(b[i]:4);
for i:=1 to m-1 do
for j:=m downto i do
begin
if a[i] > a[j] then
begin
p1:=a[i]; a[i]:=a[j]; a[j]:=p1;
end;
if b[j] > b[i] then
begin
p2:=b[i]; b[i]:=b[j]; b[j]:=p2;
end;
end;
writeln; writeln; writeln('Массив А по возрастанию:');
for i:=1 to m do write(a[i]:4);
writeln; writeln; writeln('Массив B по убыванию:');
for i:=1 to m do write(b[i]:4);
writeln; writeln; writeln('Массив A+B:');
for i:=1 to m do
begin
a[i]:=a[i]+b[i];
write(a[i]:4);
a[i]:=a[i]-b[i];
end;
writeln; writeln; writeln('Массив B-A:');
for i:=1 to m do
begin
b[i]:=b[i]-a[i];
write(b[i]:4);
end;
readln;
end.
- 25.01.2018 19:49
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.