misterzol1

02.05.2020 13:59

Информатика

Есть ответ 👍

1.Ввести в массив n произвольных чисел (n<=30) Отсортировать отрицательные по убыванию, положительные – по возрастанию, оставив отрицательные на местах, принадлежащих отрицательным, а положительные – на местах, принадлежащих положительным. Вывести на экран исходный и полученный массивы. Дополнительных массивов не использовать.

Задача на «4» балла:
Заданы 2 списка: в одном – фамилии спортсменов-участников турнира, в другом – занятые ими места. Переставить фамилии спортсменов в первом списке в соответствии с занятыми местами и вывести его на экран. В турнире участвовало n спортсменов (n<=20)

var f: array[1..20] of string; m: array[1..20] of integer;k: string; i, j, c:integer;
begin
readln(n);
for i:=1 to n do
begin
write(‘введите фамилию’); readln(f[i]);
write(‘введите место’); readln(m[i]);
end;
for i:=1 to n-1do
for j:= i+1 to n do
if (m[i]>m[j]) then
begin
k:=f[i]; f[i]:=f[j]; f[j]:=k;
c:=m[i]; m[i]:=m[j]; m[j]:=c;
end;
for i:=1 to ndo
writeln(f[i]);
end.
Решите всё по заданию!!!!!