14.12.2008, 01:05 | #1 (permalink) |
Новичок
Регистрация: 14.12.2008
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите пожалуйста
Пожалуйста, не клонируйте темы! Вам ответят, имейте терпение. С ув. модератор. |
14.12.2008, 01:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие топики помогут пролить свет на решение вопроса Помогите пожалуйста Помогите срочно пожалуйста. Помогите пожалуйста, не понимаю С++ Помогите пожалуйста с задачками Помогите пожалуйста |
14.12.2008, 10:38 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Совсем просто. Например, так:
Program Championship; CONST N= ; {ввести количество команд} VAR i, j, k, Product:INTEGER; Table: ARRAY[1..N, 1..N] of Integer; Winners:ARRAY[1..N] of Integer; BEGIN {Ввод матрицы с консоли} FOR i:=1 TO N DO FOR j:=1 TO N DO BEGIN Write('Table[',i:2,j:3,']= '); ReadLn(Table[i,j]); END; {Замена диагональных элементов единицами - так удобнее} FOR i:=1 TO N DO Table[i, i]:=1; {Собственно проверка} k:=0; FOR i:=1 TO N DO BEGIN Product:=1; FOR j:=1 TO N DO Product:=Product*Table[i, j]; IF Product>0 THEN BEGIN Inc(k); {или, что тоже самое, k:=k+1} Winners[k]:=i; END; END; {Выдача итога} IF k=0 THEN Write('Поражения были у всех команд') ELSE BEGIN Write('Нет поражений у команд NN '); FOR i:=1 TO k DO Write(Winners[i]:3); END; END. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
паскаль |
|
|