Дана матрица, найти произведение элементов с четной суммой индексов

@seventeenth_sun · Регистрация: 24.03.2020

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

Дана матрица, найти произведение элементов с четной суммой индексов.

@ZX Spectrum-128 · 27.03.2020, 15:31

Pascal

const
  n = 5;
 
var
  b: array [1..n, 1..n] of integer;
  i, j: integer;
  p: real;
 
begin
  randomize;
  p := 1;
  writeln('Array: ');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      b[i, j] := random(n) + 1;
      write(b[i, j]:5);
      if (i + j) mod 2 = 0 then 
        p := p * b[i, j];
    end;
    writeln;
  end;
  write('P: ', p:0:0);
end.

@seventeenth_sun 0 / 0 / 0 Регистрация: 24.03.2020 Сообщений: 8
		1
	Дана матрица, найти произведение элементов с четной суммой индексов 27.03.2020, 15:25. Показов 531. Ответов 1 Метки нет (Все метки) Дана матрица, найти произведение элементов с четной суммой индексов. 0

	27.03.2020, 15:31