периписать из Pascal в C++ - C++ - Ответ 2214628

uses crt;
var
mas:array [-100..100] of integer;
sum,i,n:integer; {i - index, n - kol-vo elementov}
begin
clrscr;
n:=10;
sum:=0;
  for i:=1 to n do
  begin
    writeln('Enter ',i,' elements');
    readln(mas[i]);
    clrscr;
  end;
write ('Array =');
  for i:=1 to n do
  begin
    write(mas[i]:4);
    if mas[i]<0 then  sum:=sum+mas[i];
  end;
writeln;
writeln('Summa otricatelnix elementov massiva= ',sum);
readln;
end.

uses crt;
const e=6; {Razmer}
var x,y:Byte;
M:array [1..10, 1..10] of Byte;
begin
clrscr;
Randomize;
for x := 1 To e Do
  For y := 1 To e Do
  M[x,y]:= Random(9);
Writeln('Original matrix:');
for x := e downto 1 do
begin
  for y := 1 To e Do
  Write(M[x,y],' ');
  Writeln;
end;
writeln;
Writeln('Reversed matrix:');
for x := 1 To e Do
begin
  for y := 1 To e Do
  Write(M[x,y],' ');
  Writeln;
end;
Readln;
end.

uses crt;
const
e=5; {kol-vo elementov}
var m:array[-100..100] of integer;
i,max,min,imax,isk,iisk:integer;
begin
clrscr;
       for i:= 1 to e do
       begin
       write('Enter ',i, ' element - ');
       readln(m[i]);
       end;
max:=m[1];
       for i:=2 to e do
       begin
        if m[i]>max then
        begin
        max:=m[i];
        imax:=i;
        end;
       end;
writeln('Max element of array=',max, ', Index=',imax);
min:=m[1];
       for i:=2 to e do
       begin
        if m[i]<min then
        min:=m[i];
       end;
m[imax]:=min;
isk:=m[1];
       for i:=2 to e do
       begin
        if m[i]>isk then
        begin
        isk:=m[i];
        iisk:=i;
        end;
       end;
writeln('Required element=',isk, ', Index=',iisk);
readln;
end.