Найти номер первого столбца, не содержащего ни одного элемента кратного 2. - Pascal ABC

Формулировка задачи:

Найти номер первого столбца, не содержащего ни одного элемента кратного 2.Добавлено через 3 часа 30 минутДана действительная матрица размерности (n × n ). Найти номер первого столбца, не содержащего ни одного элемента кратного 2.

Код к задаче: «Найти номер первого столбца, не содержащего ни одного элемента кратного 2. - Pascal ABC»

textual
var
  a: array [1..100, 1..100] of integer;
  n, i, j, k: integer;
 
begin
  writeln('Введите размерность квадратной матрицы:');
  write('N = ');
  readln(n);
  writeln('Введите значения матрицы:');
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('A[', i, ',', j, '] = ');
      readln(a[i, j]);
    end;
  k := 0;  
  for j := 1 to n do
  begin
    for i := 1 to n do
      if a[i, j] mod 2 = 0 then
        break
      else
        k := k + 1;
    if k = n then
    begin
      writeln('Первый столбец не содержащий ни одного элемента кратного 2 = № ', j);
      break;
    end
    else
      k := 0;
  end;
end.

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы