Интересная задачка, Это надо увидеть.... Опции

[Ruslan4ik]

Дана целочисленная матрица размера М на Н. Найти номер последней из её строк, содержащих, только чётные числа. Если таких строк нет то вывести 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 Сдавать на днях....
Если все пучком будет я потом вам клиентиков сюда приведу....

[Ruslan4ik]

.....
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 слово держу.....