СРОЧНО!!!
Pascal
1) Дан двумерный массив размером 5×6, заполненный случайными числами из интервала [-10;10]. Сформировать одномерный массив, каждый элемент которого равен произведению чётных положительных элементов соответствующего столбца.
2) Дан двумерный массив размером n×m, заполненный случайным образом. Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента. Если есть, то вывести номер этой строки.
3)Заполнить массив 5×5 по правилу (см. фото):
![](https://st.uroker.com/files/fc8/fc85b35ffa356ada84f93cbcfa0f9ea7.jpg)
Ответы
1)const N=5;
M=6;
var
a: array [1..N,1..M] of integer;
b: array [1..M] of integer;
i,j:integer;
begin
for i:=1 to N do
begin
b[i]:=1;
for j:=1 to M do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
b[M]:=1;
writeln;
for j:=1 to M do
begin
for i:=1 to N do
begin
if (a[i,j]>=0) and (a[i,j] mod 2=0) then
b[j]:= b[j]*a[i,j];
end;
write(b[j]:4);
end;
end.
2)const N=5;
M=6;
var
a: array [1..N,1..M+1] of integer;
i,j:integer;
begin
for i:=1 to N do
begin
a[i,m+1]:=0;
for j:=1 to M do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:4);
if a[i,j]<0 then inc(a[i,m+1]);
end;
writeln;
end;
writeln;
for i:=1 to N do
if a[i,M+1]=2 then write(i:4);
end.
3) Порешай самостоятельно