Сформировать одномерный массив, каждый элемент которого равен произведению четных чисел соответствующего столбца

@Никита777 · Регистрация: 28.06.2013

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

12.Дан двумерный массив размерностью 5х6, заполненный случайными целыми числами. Сформировать одномерный массив, каждый элемент которого равен произведению четных чисел соответствующего столбца.

@1640max · 28.06.2013, 17:32

Pascal

type mas=array[1..5,1..6] of integer;
     mis=array[1..5] of longint;
var i,j:integer;
    a:mas;
    b:mis;
begin
randomize;
for i:=1 to 5 do
b[i]:=1;
writeln('Двухмерный массив:');
for i:=1 to 6 do
  begin
   for j:=1 to 5 do
     begin
     a[j,i]:=random(100);
     write(a[j,i]:4);
       if (a[j,i]mod 2=0) and (a[j,i]<>0) then b[j]:=b[j]*a[j,i];
     end;
    writeln;
    end;
writeln;
writeln('Одномерный массив:');
for i:=1 to 5 do
writeln(b[i]:12);
end.

@Никита777 0 / 0 / 0 Регистрация: 28.06.2013 Сообщений: 14
		1
	Сформировать одномерный массив, каждый элемент которого равен произведению четных чисел соответствующего столбца 28.06.2013, 15:25. Показов 2793. Ответов 1 Метки нет (Все метки) 12.Дан двумерный массив размерностью 5х6, заполненный случайными целыми числами. Сформировать одномерный массив, каждый элемент которого равен произведению четных чисел соответствующего столбца. 0

	28.06.2013, 17:32

Сформировать одномерный массив, каждый элемент которого равен произведению четных чисел соответствующего столбца

Решение