Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Задача с целочисленной прям-й матрицей

Автор: supergiperlamer 26.11.2006, 23:19

Написать программу в паскале для задачи:

   Дана целочисленная прямоугольная матрица.
1) Определить количество столбцов, не содержащих ни одного нулевого элемента.
2) Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных
     элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом
     характеристик.

Автор: LesnoyChelovek 27.11.2006, 17:52

Для первой части:

Код

program matrica;
const n=10;
var a:array[1..n,1..n] of integer;
    i,j,r,stolbec,s: integer;

begin
writeln('Vvedite razmer matricy');
readln(r);
for i:=1 to r do
 for j:=1 to r do
 begin
 write('Vvedite a[',i,',',j,']=');
 readln(a[i,j]);
 end;

for i:=1 to r do
begin
writeln;
for j:=1 to r do
write(a[i,j]:3);
end;

stolbec:=0;
for i:=1 to r do
begin
s:=0;
for j:=1 to r do
if a[i,j]=0 then s:=s+1;
if s=0 then stolbec:=stolbec+1;
end;
writeln;
writeln('Kolichestvo nenulevyh stolbcov ',stolbec);

readln;
end.