Const m=10; n=8; var a:array[1..m,1..n] of integer; i,j:integer; p:double;
begin Randomize; Writeln('Исходный массив'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(101)-50; Write(a[i,j]:4); end; Writeln end; p:=1; for j:=1 to n do if a[3,j]>0 then p:=p*a[3,j]; Writeln('Искомое произведение: ',p) end.
ель примеро с огромным хером у меня проблема ламба или фера я сам не знаю как тебе удобнее будет делать в этом случае я не помню как тебе такой вариант возможен по истории
Черный Rollce Roice забираю джекпот со мной baby мама на нёё потрачу все, зделал новый мув и я заберу долг я у нёё есть парень,но походу он лох.
Объяснение:
ель примеро с огромным хером у меня проблема ламба или фера я сам не знаю как тебе удобнее будет делать в этом случае я не помню как тебе такой вариант возможен по истории
Черный Rollce Roice забираю джекпот со мной baby мама на нёё потрачу все, зделал новый мув и я заберу долг я у нёё есть парень,но походу он лох.
m=10;
n=8;
var
a:array[1..m,1..n] of integer;
i,j:integer;
p:double;
begin
Randomize;
Writeln('Исходный массив');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(101)-50;
Write(a[i,j]:4);
end;
Writeln
end;
p:=1;
for j:=1 to n do
if a[3,j]>0 then p:=p*a[3,j];
Writeln('Искомое произведение: ',p)
end.
Тестовое решение:
Исходный массив
35 30 35 -25 -50 8 -20 47
-34 -26 -7 34 -9 -31 10 -46
-17 -21 27 8 27 41 35 -48
30 -44 25 48 30 -20 10 -6
-3 -10 45 -33 3 -38 -11 -8
47 -25 -27 -7 2 -20 -4 -48
-38 32 -29 -41 31 16 46 44
45 33 -4 45 34 -18 -33 37
15 49 -14 -49 -25 -8 1 -30
41 -15 11 1 17 -8 0 -1
Искомое произведение: 8368920
ель примеро с огромным хером у меня проблема ламба или фера я сам не знаю как тебе удобнее будет делать в этом случае я не помню как тебе такой вариант возможен по истории
Черный Rollce Roice забираю джекпот со мной baby мама на нёё потрачу все, зделал новый мув и я заберу долг я у нёё есть парень,но походу он лох.
Объяснение:
ель примеро с огромным хером у меня проблема ламба или фера я сам не знаю как тебе удобнее будет делать в этом случае я не помню как тебе такой вариант возможен по истории
Черный Rollce Roice забираю джекпот со мной baby мама на нёё потрачу все, зделал новый мув и я заберу долг я у нёё есть парень,но походу он лох.