Сделать задание в Паскале!
И в Блок-Схеме!
Буду очень благодарен тем кто поможет)
Или хотя бы в Паскале сделать программу)
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
