Дана целочисленная матрица размера М на Н. Найти номер последней из её строк, содержащих, только чётные числа. Если таких строк нет то вывести 0

Для отладки программы исходную матрицу сформировать с помощью генератора случайных чисел.

Начал и запутался....

Program massive
var
A:array[1..N,1..M]of real;
i,j;integer;
begin
for i:=1 to N do read(A(i,j));
for j:=1 to M do
а дальше

ПЖЛ решите, а за мной не заржавеет.... отблагодарю... пишите в аську 499787410 Сдавать на днях....
Если все пучком будет я потом вам клиентиков сюда приведу....

Вот мой набросок потестируй и спрашивай если пока я печатал никто не написал лучше могут быть ошибки

const
m = 10 ;
n = 12 ;

type
a = array [0..m,0..n] of real ;
var 
mas : a ;
i, k, c, str : byte ;
begin
for i :=0 to m do begin
      for k := 0 to n do
          begin 
             mas[i,k] := random(101);
             write(mas[i, k]:4);  
             if (mas[i, k] mod 2) = 0 then inc© ;
             if c = m then str := i ;
          end ;
        writeln;
        end ; 

writeln(str);

end ;

у тебя матрица 11*13, а заполняешь ты 11*12

Entschuldigung Sie bitte сейчас исправлю свою рассейность


Первый пост глупость каюсь

дубль 2

program test ;
const
m = 2 ; //  столбы
n = 2 ; //    строки
type
a = array [1..n,1..m] of byte ;
var
mas : a ;
i, k, c, str : byte ;
begin
str := 0 ;
randomize ;

for i :=1 to n do
   begin
   c := 0 ;
   for k := 1 to m do
      begin
        mas[i,k] := random(101);
         write(mas[i, k]:4);
         if  mas[i, k] mod 2 = 0 then inc© ;
         if c = m then str := i ;
      end ;
   writeln;
end ;
writeln(str);
end .

это просто дичайше интересная задачка.

мне обязательно надо было это увидеть. как и всем.

М

тему переименуй

Если требуется найти ПОСЛЕДНЮЮ строку, то и искать следовало бы не с начала, а с конца. Чтобы не делать лишнюю работу.

Не подумал
Ну тогда downto и просто берется первая строчка с вып. условием а дальше просто заполняется массив.

.....
program massive ;
const
m = 2 ; // stolbiki
n = 8 ; // stroki
type
a = array [1..n,1..m] of byte ;
var
mas : a ;
i, k, c, str : byte ;
begin
str := 0 ;
randomize ;

for i :=1 to n do
begin
c := 0 ;
for k := 1 to m do
begin
mas[i,k] := random(101);
write(mas[i, k]:4);
if mas[i, k] mod 2 = 0 then inc© ;
if c = m then str := i ;
end ;
writeln;
end ;
writeln(str);
readln;-------------добавил сам,
end .
На моем Турбе пошел.... завтра-послезавтра покажу преподу.... RENESKO слово держу.....

М

Закрыто. См. выше.