До іть зробити програмування розгалужень мова Object Pascal

#include <iostream>

using namespace std;

int main()

{

   int a,b,c;

   cout<<"Введите 1-ое число"<<endl;

   cin>>a;

   cout<<"Введите 2-ое число"<<endl;

   cin>>b;

   cout<<"Введите 3-ое число"<<endl;

   cin>>c;

   if((a>b) && (a>c))

   cout<<"Наибольшее число "<<a;

   if((b>a) && (b>c))

   cout<<"Наибольшее число "<<b;

   if((c>a) && (c>b))

   cout<<"Наибольшее число "<<c;

   return 0;

}

Если русский язык не поддерживает, добавьте в main строчку: setlocale(LC_ALL,"Russian");

ответ:max := -1001;for j := 1 to N doif (abs(a[j]) mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];if max=-1001 then write('Не найдено')  else write(max);Объяснение:max := -1001;

Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).

for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];

Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.

if max=-1001 then write('Не найдено')  else write(max);

Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.

Пример работы: