Определить номера команд, прошедших чемпионат без поражений

@Enokin · Регистрация: 09.03.2015

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

Таблица футбольного чемпионата задана в виде двухмерного массива из n строк и n столбцов, в котором все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали, равен 3, 1 или 0 (числу очков, набранных в игре: 3 — выигрыш, 1 — ничья, 0 — проигрыш). Определить номера команд, прошедших чемпионат без поражений

сделать файловый ввод. помогите пожалуйста.

@Puporev · 22.03.2015, 13:22

Хотя бы файл создали и правильно его заполнили, или все за Вас делать?

@Enokin · 22.03.2015, 13:50 **[ТС]**

я вот так заполнил.
0 3 1 3 0 3 1
0 0 1 3 1 3 0
1 0 0 1 1 0 1
3 0 3 0 0 1 0
0 1 3 1 0 3 1
0 3 1 3 1 0 0
1 1 3 0 3 1 0

только вот щас не знаю, как сделать что бы это значения записывались в двухмерный массив.

@Puporev · 22.03.2015, 14:24

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var f:text;
    a:array[1..20,1..20] of byte;
    n,i,j,k,p:byte;
begin
assign(f,'12.txt');
reset(f);//файл в папке с программой
read(f,n);//в первой строке файла записано число команд
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:3);
   end;
  writeln;
 end;
close(f);
writeln('Номера комад, прошедших чемпионат без поражений');
k:=0;
for i:=1 to n do
 begin
  p:=0;
  j:=1;
  while(j<=n)and(p=0) do
  if(j<>i)and(a[i,j]=0)then p:=1
  else inc(j);
  if p=0 then
   begin
    k:=1;
    write(i:4);
   end;
 end;
if k=0 then write('Таких команд нет');
end.

Новые блоги и статьи Все статьи Все блоги /
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .

@Enokin 0 / 0 / 0 Регистрация: 09.03.2015 Сообщений: 41

	Определить номера команд, прошедших чемпионат без поражений 22.03.2015, 12:23. Показов 1848. Ответов 3 Метки нет (Все метки) Таблица футбольного чемпионата задана в виде двухмерного массива из n строк и n столбцов, в котором все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент, не принадлежащий главной диагонали, равен 3, 1 или 0 (числу очков, набранных в игре: 3 — выигрыш, 1 — ничья, 0 — проигрыш). Определить номера команд, прошедших чемпионат без поражений сделать файловый ввод. помогите пожалуйста. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.03.2015, 13:22
	Хотя бы файл создали и правильно его заполнили, или все за Вас делать? 0

@Enokin 0 / 0 / 0 Регистрация: 09.03.2015 Сообщений: 41
	22.03.2015, 13:50 [ТС]
	я вот так заполнил. 0 3 1 3 0 3 1 0 0 1 3 1 3 0 1 0 0 1 1 0 1 3 0 3 0 0 1 0 0 1 3 1 0 3 1 0 3 1 3 1 0 0 1 1 3 0 3 1 0 только вот щас не знаю, как сделать что бы это значения записывались в двухмерный массив. 0