Вывести на экран команды победителя и команды аутсайдера - Free Pascal
Формулировка задачи:
В массив Team занесены названия 10 команд футбольного турнира. Введите с клавиатуры данные для массива итоговых результатов - Itog. Программа, обрабатывая массив Itog, выводит на экран команды-победителя и команды аутсайдера
Код к задаче: «Вывести на экран команды победителя и команды аутсайдера - Free Pascal»
const n=10;
Team:array[1..n] of string=('Спартак','ЦСКА','Динамо','Краснодар','Терек',
'Амкар','Локомотив','Рубин','Уфа','Ростов');
var
Itog:array[1..n] of byte;
i,imx,imn:byte;
begin
writeln('Введите итоговые очки команд');
for i:=1 to n do
begin
readln(Itog[i]);
if i=1 then
begin
imx:=1;
imn:=1
end
else if Itog[i]>Itog[imx] then imx:=i
else if Itog[i]<Itog[imn] then imn:=i;
end;
writeln('Команда победитель ',Team[imx],' результат=',Itog[imx]);
writeln('Команда аутсайдер ',Team[imn],' результат=',Itog[imn]);
readln
end.
14 голосов, оценка 3.571 из 5
СОХРАНИТЬ ССЫЛКУ