с паскаля на Си++ - C++ - Ответ 676636

uses crt;
var a:array[1..100] of integer;
    i,n,max,min:integer;
    c:char;
 
begin
ClrScr;
repeat
writeln('Выберите действие:');    {меню}
writeln('1-ввод массива целых чисел');
writeln('2-вывод массива в строку');
writeln('3-минимальный элемент.замена отрицательных чисел этим мин.элементом');
writeln('4-формирование массива');
writeln('другое - выход');
readln(c);
case c of
'1':begin            {Ввод массива}
ClrScr;
Write('Введите размерность массива=');
Readln(n);
    for i:=1 to n do
     begin
     Writeln ('Введите ',i,' элемент массива');
     Readln(a[i]);
     Writeln;
     end;
   end;
 
'2':begin         {вывод массива в строку}
ClrScr;
  if n=0 then Writeln('следуйте пунктам меню!!!')
  else
    for i:=1 to n do
     Write(a[i],' ');
     Writeln;
     Writeln;
    end;
'3':begin         {Поиск минимального элемента среди положительных элементво массива}
ClrScr;
  if n=0 then Writeln('следуйте пунктам меню!!!')
  else
    min:=32767;
      for i:=1 to n do
        if a[i]>0 then
          begin
             if a[i]<min then
             min:=a[i];
          end;
      Writeln('Min= ',min);
   end;
'4':begin        {Замена минимальным элементов всех отрицательных чисел массива}
ClrScr;
  if n=0 then Writeln('следуйте пунктам меню!!!')
  else
    for i:=1 to n do
      if a[i]<0 then
      a[i]:=min;
      Writeln('Полученный массив: ');
        for i:=1 to n do
          Write(a[i],'  ');     {полученный массив}
          Readln;
       end;
    end;
until not(c in ['1'..'4']);
end.