Var a:array[0..999] of integer; n,i,p,max,c,d,t,j,k:integer; begin write ('Введите кол-во элементов в массиве: '); readln (n); p:=1; d:=0; write ('Массив: '); for i:=1 to n do begin a[i]:=random(101)-50; write (a[i],' '); end; max:=a[1]; for i:=1 to n do begin c:=abs(a[i]); if c>max then max:=c; if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i]; end; WRITELN; writeln ('Максимальный по модулю элемент = ',max); writeln ('Произведение отрицательных нечётных элементов = ',p); for i:=1 to n do begin if i mod 2 = 0 then write (a[i],' '); end; end.
1 votes Thanks 0
NiGhtWolFs
Чуть доделаю сейчас с последним заданием)
Answers & Comments
Verified answer
Var a:array[0..999] of integer;n,i,p,max,c,d,t,j,k:integer;
begin
write ('Введите кол-во элементов в массиве: ');
readln (n);
p:=1;
d:=0;
write ('Массив: ');
for i:=1 to n do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
max:=a[1];
for i:=1 to n do
begin
c:=abs(a[i]);
if c>max then max:=c;
if (a[i]<0) and (i mod 2 <> 0) then p:=p*a[i];
end;
WRITELN;
writeln ('Максимальный по модулю элемент = ',max);
writeln ('Произведение отрицательных нечётных элементов = ',p);
for i:=1 to n do
begin
if i mod 2 = 0 then write (a[i],' ');
end;
end.