Нужно срочно, к 3 уроку. заранее спасибо) дан двумерный массив размером 5*6, заполненный целыми числами. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего...
Нужно срочно, к 3 уроку. заранее спасибо) дан двумерный массив размером 5*6, заполненный целыми числами. сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца.
Гость
Ответ(ы) на вопрос:
Гостьprogram mass;
uses
crt;
var
mas: array [1..5, 1..6] of integer;
mas_od: array[1..6] of integer;
i, j: integer;
begin
randomize;
for i := 1 to 5 do
for j := 1 to 6 do
mas[i, j] := random(10)-5;
for i := 1 to 5 do
begin
for j := 1 to 6 do
write(mas[i, j]:4);
writeln;
end;
writeln('----------------------------');
for i := 1 to 5 do
begin
mas_od[i] := 1;
for j := 1 to 6 do
begin
if((mas [i, j] mod 2 = 0) and (mas[i, j] > 0)) then
mas_od[i] := mas_od[i] * mas[i, j];
end;
end;
for i:=1 to 6 do write(mas_od[i]:4);
writeln;
end.
Не нашли ответ?
Похожие вопросы