Определить в матрице количество тех элементов, которые без остатка делятся на собственный индекс

@svkar · Регистрация: 13.11.2013

Ввести двумерный массив
Определить в нем количество тех элементов, которые без остатка делятся на собственный индекс (строки или столбца

Pascal

uses
  Crt;
const
  N = 5;
  M = 3;
var
  a: array [1..N, 1..M] of integer;
  i,j,p : byte;
  begin
  for i := 1 to N do begin
  for j := 1 to M do begin
  a[i,j] := random(99)+1;
  Writeln (a[i,j]);
  if (a[i,j] mod [i,j]=0) then writeln (a[i,j]);
  end;
  end;
  end.

@ildwine · 13.11.2013, 18:25

Pascal

uses
  Crt;
const
  N = 5;
  M = 3;
var
  a : array [1..N, 1..M] of integer;
  i, j, p : byte;
begin
  p := 0; {количество считать}
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i,j] := random(99)+1;
      Write(a[i,j]:4);
      if (a[i,j] mod i = 0) or (a[i,j] mod j = 0) then inc(p)
    end;
    writeln
  end;
  writeln('количество: ', p)
end.

Опции темы