Var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.
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.
Зачем тебе интернет а бывает крутой
-2; 2 ..............................
Ответ: 4
Пояснение:
1)построил массив 10 на 10
2) выполнил все циклы по очереди и отмечал в каждой клетке полученное число после выполнения цикла