Найти номер последней из ее строк, содержащих только четные числа.

@M@ksiM · Регистрация: 13.06.2010

Студворк — интернет-сервис помощи студентам

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

Добавлено через 1 час 1 минуту
Помогите пожалуйста.....

@Lyohich84 · 22.06.2010, 11:42

Pascal

uses crt;
var
a:array[1..100,1..100] of integer;
i,j,m,n,k:byte;
f:boolean;
begin
clrscr;
write('m=');readln(m);
write('n=');readln(n);
randomize;
for i:=1 to m do
 for j:=1 to n do
  a[i,j]:=random(101)-50;
for i:=1 to m do
 begin
 for j:=1 to n do
  write(a[i,j]:4);
 writeln;
 end;
k:=0;
for i:=1 to m do
 begin
  f:=true;
  for j:=1 to n do
    if odd(a[i,j])=true then f:=false;
  if f=true then k:=i;
 end;
writeln;
writeln(k);
readln
end.

@M@ksiM 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 34
		1
	Найти номер последней из ее строк, содержащих только четные числа. 22.06.2010, 10:40. Показов 1851. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица размера M х N. Найти номер последней из ее строк, содержащих только четные числа. Если таких строк нет, то вывести 0. Добавлено через 1 час 1 минуту Помогите пожалуйста..... 0

Опции темы

Найти номер последней из ее строк, содержащих только четные числа.

Решение