Введите в компьютер программу Premier liga. Выполните ее, получите результаты.

Информатика 9 класс Семакин ФГОС

§ 20 Поиск наибольшего и наименьшего элементов массива ГДЗ по Информатике 9 класс. Семакин


4. Введите в компьютер программу Premier liga. Выполните ее, получите результаты. Сравните с результатами, приведенными в параграфе.

Ответ

program teams;
var i, x, k, c: integer; a: string; B: array [1..5] of integer; Team: array [1..5] of string; zabit: array [0..10] of integer;
propyshen: array [0..10] of integer; f: array [0..10] of integer;
begin
writeln(‘Введите название команды и количество полученной ею очков: ‘);
for i:=1 to 5 do begin write(i,’) ‘);
read(Team[i]);
write(‘Очки: ‘);
readln(B[i]);
write(‘Количество забитых мячей: ‘);
readln(zabit[i]);
write(‘Количество пропущенных мячей: ‘);
readln(propyshen[i]); f[i]:=zabit[i]-propyshen[i];
writeln(‘Забитые минус пропущенные: ‘,f[i]);
end;
for k:=1 to 5 do for i:=1 to 5-k do
begin
if (B[i]<=B[i+1]) and (f[i]<=f[i+1]) then
begin
x:=B[i];
B[i]:=B[i+1];
B[i+1]:=x;
a:=Team[i];
Team[i]:=Team[i+1];
Team[i+1]:=a;
c:=f[i];
f[i]:=f[i+1];
f[i+1]:=c;
end;
end; writeln(‘Вывод: ‘);
for i:=1 to 5 do
begin
for k:=1 to 18-length(Team[i]) do Team[i]:=Team[i]+’ ‘;
writeln(i,’) ‘,Team[i]:18,B[i]:2,’ ‘,’- Разница в забитых и пропущенных голах:’, f[i]);
end;
end.

В конце будет выводить номер команды, название команды, количество очков и разницу между забитыми и пропущенными голами.


Понравилась статья? Поделиться с друзьями: