составить алгоритм вычисления суммы двух чисел,если они оба отрицательные,в противном случае вычисления их произведения

Царевна1: алгоритм блок-схемой, если можно

vladmor: Так и надо было в условии указать. Чего стесняетесь) Добавлю через минут 5 в решение

Царевна1: спасибо, я уже всё решила)

vladmor: Я тоже )

Царевна1: сравним ?)

vladmor: Я свой добавил в решение, сравнивайте

Ответы

Ответ дал: vladmor

var a,b:integer;
begin
writeln('Введите два числа: ');
readln(a,b);
if (a<0) and (b<0) then writeln(a+b)
else writeln(a*b);
end.

Приложения:

Ответ дал: petyaGavrikov

var a,b,res:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if (a<0)and(b<0) then res:=a+b else res:=a*b;
writeln('Результат = ',res);
end.

Пример:
a = -5
b = 8
Результат = -40
Блок-схема - в прилагаемом файле.

Приложения: