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

[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 Сдавать на днях....
Если все пучком будет я потом вам клиентиков сюда приведу....

[renesko1]

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

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 ;

Сообщение отредактировано: renesko1 - 9.04.2008 20:44