Консультация № 138466
29.05.2008, 12:11
0.00 руб.
0 1 1
Здравстыуйте господа эксперты.
Помогите составить программу формирования целочисленной квадратной матрици , определить колличество столбцов не содержащих четных элементов.

Обсуждение

давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа