Функция. целочисленная квадратная матрица порядка N. Найти номера строк, все элементы которых четные.

[SsAn]

Есть целочисленная квадратная матрица порядка N. Найти номера строк элементы которых четные.

[type_Oleg]

Нашел: 1,4,5,7

[SsAn]

program lab_5_2;
uses crt;
type
  mas=array[1..100,1..100] of real;
  var b:mas;
  
   procedure vvod(var x:mas; n:integer);
  var i, j:integer;
  begin
     for i:=1 to n do
      for j:=1 to n do
      x[i,j]:=random(100);
     end;
     procedure vyvod(x:mas; n:integer);
  var i,j:integer;
  begin
    for i:=1 to n do
     begin
       for j:=1 to n do
       write(x[i,j]:5:0, ' ');
       writeln;
       end;
   writeln;
   end;
   procedure dva(x:mas; var y:mas; n:integer);
   var i,j:integer;
   begin
       for i:=1 to n do
         for j:=1 to n do
         y[i,j]:=x[i,j];
         end;
  function nuli (x:mas; n:integer):real;
     var i,j:integer;
         y:real;
     begin
      for i:=1 to n do
        for j:= 1 to n do
        begin
        if n mod 2=0
    then writeln(x[i,j])

    end;
    writeln;
    end;
    var c:mas;
  m:integer;
  begin
     write('Введите размерность мас');
     readln(m);
     randomize;
     vvod(c,m);
     writeln('Исходная');
     vyvod(c,m);
     writeln('Преобразованная');

     vyvod(c, m);
     writeln;
    end.

Я не могу функцию сделать.



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

type
  mas=array[1..100,1..100] of real;
  var b:mas;
  
   procedure vvod(var x:mas; n:integer);

зачем Вам массив b ? (выделил цветом).

Я не могу функцию сделать.

какую функцию?!
- которая печатает все номера строк, в которых ВСЕ элементы чётные?
или
- которая печатает все номера строк, где ВСТРЕЧАЮТСЯ чётные элементы?

Или какую функцию?
И, кстати, почему именно функцию? Напоминаю, что в отличие от процедуры, функция должна ВЕРНУТЬ какое-то значение. Что должна вернуть ваша функция?

[SsAn]

функцию,которая печатает все номера строк, в которых ВСЕ элементы чётные.
а массив b это просто не удалила во время одной из попыток.

[Serge_Bliznykov]

Сообщение от SsAn

функцию,которая печатает все номера строк, в которых ВСЕ элементы чётные.

функция должна что-то возвращать.
Что должна возвращать ваша функция?

и проблема номер два - у Вас матрица ошибочно представлена как матрица вещественных чисел. Для вашей задачи она должна быть ЦЕЛОЧИСЛЕННОЙ!!
(для дробных чисел отсутствует понятие кратности/чётности/не чётности!
например, число 2.4 - это чётное число?! Оно делится без остатка на 2 ?!)



Что же касается возвращаемого значения, хотите, функция вернёт КОЛИЧЕСТВО найденных строк?!

получите и распишитесь:

type
  mas=array[1..100,1..100] of integer;
....

function CountEvenRows(x:mas; n:integer) : integer;
  var 
    i,j, rez:integer;
    isEven : boolean;
  begin
    Write('Номера строк матрицы со всеми чётными элементами: ');
    rez := 0;
    for i:=1 to n do
    begin
       isEven := true; 
       for j:=1 to n do
          if odd(x[i,j]) then begin
               isEven := false; 
               break
          end;
      if isEven then begin
         Write(i:2,' ');
         Inc(rez);
      end; 
   end;
   writeln;
   CountEvenRows := rez;
end;
....

p.s. не проверял...

[Poma][a]

Красота..
Пофлужу..
1)

for j:=1 to n do
          if odd(x[i,j]) then begin
               isEven := false; 
               break

Или так..

j := 1;
while (j <=n) and (not odd(x[i, j]) do
      Inc(j);
if j = n+1 then..

Дело вкуса..

2)

x:mas

100*100*2(2 раза выделяем память)*sizeof Integer.. А не жирно?
предлагаю ставить const.. и память не жрем.. и напакостить не можем..

[SsAn]

if odd(x[i,j]) then begin

Мне выдает здесь ошибку...Нельзя преобразовать выражение типа real к типу integer.

[Poma][a]

Значит у Вас массив типа Real, что является дикой ересью.. Понятие четности\нечетности применимо лишь для целых чисел.. (еще раз посмотрите пример Сержа)

[SsAn]

write(x[i,j]:5:0, ' ');

теперь здесь ошибка...
Формат вывода применим только к типам real и complex.