давно
Старший Модератор
31795
6196
29.05.2008, 14:57
общий
это ответ
Здравствуйте, Корчагин Петр Александрович!
Программа в приложении.
Использован стандартный набор генератора случайных чисел.
Удачи!
Приложение:
const n=9; m=9;var a:array[1..n,1..m]of integer; b,c,d:integer; e:boolean;begin {создаем массив тут должно быть randomize } for b:=1 to n do begin for c:=1 to m do begin a[b,c]:=random(20); write(a[b,c]:3); end; writeln; end; {сбрасываем счетчик} d:=0; {проверяем условие} for b:=1 to m do begin e:=true; for c:=1 to n do e:=e and odd(a[c,b]); inc(d,ord(e)); end; {выводим результат} writeln(‘Number:‘,d);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.