27.05.2008, 09:10
общий
это ответ
Здравствуйте, VanHelsing!
Решение первой задачи в приложении.
Приложение:
Задача 1.uses crt;type Tmatr=array[1..20,1..20]of integer;{определяем тип матрицы для передачи его в функцию}var a:Tmatr; n,m,i,j:integer;function NulStb(p:Tmatr):integer;var k,nl:integer;begink:=0;for j:=1 to m do begin nl:=0; for i:=1 to n do if p[i,j]=0 then nl:=nl+1;{считаем ноли в солбцах} if nl>0 then k:=k+1;{если ноли есть, считаем столбец} end;NulStb:=k;{присваиваем значение функции}end;begin {начало программы}clrscr;randomize;write(‘Vvedite kolichestvo strok: ‘);readln(n);write(‘Vvedite kolichestvo stolbcov: ‘);readln(m);writeln(‘Matrica:‘);for i:=1 to n do {создаем и выводим на экран матрицу} begin for j:=1 to m do begin a[i,j]:=random(10)-3; write(a[i,j]:4); end; writeln; end;writeln;writeln(‘Kolichestvo stolbcov s nylevymi elementami = ‘,NulStb(a));{вызываем функцию и она выдает результат}readlnend.