Определить номера команд, имеющих меньше трех побед.

@Jekkex · Регистрация: 27.02.2013

Author24 — интернет-сервис помощи студентам

В массиве хранится информация о количестве побед, одержанных 20 футбольными командами. Определить номера команд, имеющих меньше трех побед.

@ZLO1988 · 03.03.2013, 20:43

Pascal

uses crt;
const n = 20;
var
mas: array [1..n] of byte;
i: byte;
begin
writeln('Введите ко-во побед 20 команд: ');
for i:=1 to n do
begin
readln(mas[i]);
end;
writeln('Введенные победы: ');
for i:=1 to n do
begin
write(mas[i],' ');
end;
writeln();
writeln('Номера команд имеющие меньше 3 побед:');
for i:=1 to n do
if (mas[i] < 3) then
begin
write(i,' ');
end;
writeln();
end.

@Jekkex 6 / 6 / 10 Регистрация: 27.02.2013 Сообщений: 94
		1
	Определить номера команд, имеющих меньше трех побед. 03.03.2013, 14:23. Показов 1912. Ответов 1 Метки нет (Все метки) В массиве хранится информация о количестве побед, одержанных 20 футбольными командами. Определить номера команд, имеющих меньше трех побед. 0

	03.03.2013, 20:43

Определить номера команд, имеющих меньше трех побед.

Решение