Написать программу, которая преобразует массив из 10 элементов в массив из 5 - Pascal ABC
Формулировка задачи:
2.Написать программу, которая преобразует массив из 10 элементов в массив из 5.Первый элемент: Произведение первой и последней в 1*10. Второй элем: 2*9. Третий эл:3*8 и т.д. Отсортировать полученный массив в порядок возрастании остатков от деления на 13.
Решение задачи: «Написать программу, которая преобразует массив из 10 элементов в массив из 5»
textual
Листинг программы
const m = 10;
var a: array [1..m] of integer;
i, j, t: integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to m do
begin
a[i] := -99 + random(199);
write(a[i]:4)
end;
writeln;
writeln('Преобразованный массив:');
for i := 1 to m div 2 do
begin
a[i] := a[i] * a[m - i + 1];
write(a[i]:6)
end;
writeln;
for i := 1 to m div 2 - 1 do
for j := i + 1 to m div 2 do
if a[i] mod 13 > a[j] mod 13
then begin
t := a[i];
a[i] := a[j];
a[j] := t
end;
writeln('Массив, отсортированный по возрастанию остатков от деления на 13:');
for i := 1 to m div 2 do write(a[i]:6);
readln
end.