Решаем задачи Абрамян на Паскале. Matrix34

Matrix34. Дана целочисленная матрица размера $$M \times N$$. Найти номер последней из ее строк, содержащих только четные числа. Если таких строк нет, то вывести $$0$$.

Решение:

program Matrix34;
var
  a:array [1..10,1..10] of integer;
  row, M, N, i, j :Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 row:=0;
 for  i:=1 to M do
  begin

   j:=1;
   while (j<=n) and not(odd(a[i,j])) do inc(j);

   if j>n then row:=i;
  end;
  Writeln(row);
end.

program Matrix34;

var

a:array [1..10,1..10] of integer;

row, M, N, i, j :Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

row:=0;

for i:=1 to M do

begin

j:=1;

while (j<=n) and not(odd(a[i,j])) do inc(j);

if j>n then row:=i;

end;

Writeln(row);

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Matrix34

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ