Дана вещественная матрица размера m*n. Сформировать одномерный массив, элементами...

Question

Дана вещественная матрица размера m*n. Сформировать одномерный массив, элементами которого являются произведения целых элементов в четных строках матрицы.Паскаль

Comments

Да что ж везде Pascal то , зачем вы прогаете на мертвом языке?

Answer 1

Const n=4; m=5;
var
a: array[1..m, 1..n] of real;
b: array[1..m div 2] of real;
s: real;
i, j: integer;
begin
//считываем матрицу
for i:=1 to m do
  for j:=1 to n do
    readln(a[i, j]);
for i:=1 to m do
//проверяем четность индекса строки
  if i mod 2 = 0 then
    begin
    s := 1;
    for j:=1 to n do
//проверяем элемент на отсутствие дробной части
      if a[i, j] = int(a[i,j]) then
        s := s * a[i, j];
//присваиваем элементу массива b произведение
    b[i div 2] := s;
    end;
end.