Перевести программу с Pascal на C++ uses crt;
var
a:array[1..50] of boolean;
n,k:integer;
procedure rr(i:byte);
var
j:boolean;
l,s:integer;
begin
if i=n then for j:=false to true do begin a[i]:=j;s:=0;
for l:=1 to n do if a[l] then s:=s+1;
if s=k then begin for l:=1 to n do write(ord(a[l]),' ');writeln;end;
end
else for j:=false to true do begin a[i]:=j;rr(i+1);end;
end;
begin
clrscr;
repeat write('n,k='); readln(n,k);until (n>0) and (k<=n);
rr(1);
readln;
end.

var i,n,p,s,k,m:integer;

a:array [1..11] of integer;

begin

n:=10;

p:=1;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

if a[i] mod 3 = 0 then p:=p*a[i];

write(a[i]:2,' ')

end;

writeln;

if p<>1 then writeln('Произведение элементов кратных 3 равно ',p)

else writeln('Элементов кратных 3 нет. Произведение элементов кратных 3 равно 0');

n:=9;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

if a[i] > 5 then

begin

s:=s+a[i];

k:=k+1

end;

write(a[i]:2,' ')

end;

writeln;

if k<>0 then writeln('Cреднее арифметическое элементов массива больше 5 равно ',s/k:0:3)

else writeln('Элементов больше 5 нет. Cреднее арифметическое элементов массива больше 5 равно 0');

n:=11;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(9)+1;

write(a[i]:2,' ')

end;

writeln;

m:=a[1];

for i:=2 to n do

if a[i]>m then m:=a[i];

writeln('Самый большой элемент массива равен ',m)

end.

//Dev-C++ (C)

#include <stdio.h>

int main(void)
 {const int n=10;
 int ar[n],i,j,k,c;
 i=0;
 while(i<n)
  {scanf("%d",&ar[i]);
  i++;}
 printf(" \nfirst array \n");
 i=0;
 while(i<n)
  {printf("%d ",ar[i]);
  i++;}
 i=0;
 k=0;
 while(i<n)
  {if(ar[i]%5==0)
   {c=ar[i];
   ar[i]=ar[k];
   ar[k]=c;
   k++;}
  i++;}
 printf(" \n1 fin array \n");
 i=0;
 while(i<n)
  {printf("%d ",ar[i]);
  i++;}
 i=0;
 while(i<(n-1))
  {j=i+1;
  while(j<n){
   if(ar[i]>ar[j])
    {c=ar[i];
    ar[i]=ar[j];
    ar[j]=c;}
    j++;}
  i++;}
 printf("\n2 fin array \n");
 i=0;
 while(i<n)
  {printf("%d ",ar[i]);
  i++;}
 return 0;
}
Пример ввода:
1
5
2
10
3
15
4
20
5
25
Пример вывода:
first array
1 5 2 10 3 15 4 20 5 25
1 fin array
5 10 15 20 5 25 4 1 3 2
2 fin array
1 2 3 4 5 5 10 15 20 25