Program n1; var a: array[1..10] of integer; i,p: integer; begin randomize; write('массив: '); p:=1; for i:=1 to 10 do begin a[i]:=random(21)-10; write(a[i],' '); if a[i]<0 then p:=p*a[i]; end; writeln; write('произведение отрицательных: ',p) end.
Const n = 9; var a:array[1..n,1..n] of integer; i,j,k,max: integer;
begin Randomize; Writeln('Исходная матрица'); max:=-100; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if max<a[i,j] then max:=a[i,j] end; Writeln end;
for i:=2 to n-1 do { не просматривать первую и последнюю строки } for j:=1 to n do if a[i,j]=max then a[i,j]:=0;
Writeln('Результирующая матрица'); for i:=1 to n do begin for j:=1 to n do Write(a[i,j]:4); Writeln end; end.
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.