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