Надрукуйте в рядок всі трьохзначні числа, сума цифр яких кратна 20.

C#
int min = 1000;
int max = -1;
int sum = 0;
int [] mass = new int [12];
Random rnd = new Random();
for (int i = 0; i < mass.Length; i++)
{
    mass[i] = rnd.Next(10, 31);
    Console.WriteLine(mass[i]);
}

for (int i = 0; i < mass.Length; i++)
{
    if (mass[i] > max)
    {
        max = mass[i];
    }
    else if (mass[i] < min)
    {
        min = mass[i];
    }
}
sum = max + min;
Console.WriteLine("summ = " + sum);

1) Заводим массив в 12 элементов
2) Заполняем целыми числами от 10 до 30
3) Выводим массив
4) Ищем максимум, пробегая for'ом по массиву, сверяем в if'е max с элементом
5) Как в 4 пункте, только ищем минимум
6) После for'а считаем сумму max и min
7) Выводим сумму

сорян, на паскале не могу с массивами, не люблю их там.

Const n=4;
var 
a:array[1..n,1..n] of integer;
b:array[1..n*n] of integer;
i,j,k,max,imax,c:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(51)-25;
   write(a[i,j]:4);
  end;
  writeln;
 end;
writeln('Полученный массив:');
k:=0;
for i:=1 to n do
 for j:=1 to n do
  if a[i,j]>0 then
   begin k:=k+1; b[k]:=a[i,j]; write(b[k]:4); end;
writeln;  
max:=b[1]; imax:=1;
for i:=1 to k do
  if b[i]>max then begin max:=b[i]; imax:=i; end;
writeln('max = b[',imax,'] = ',max);
for i:=imax to k-1 do b[i]:=b[i+1];
b[k]:=0;
writeln('Измененный массив:');
for i:=1 to k-1 do write(b[i]:4);
writeln;
c:=b[2]; b[2]:=b[k-1]; b[k-1]:=c;
writeln('Измененный массив:');
for i:=1 to k-1 do write(b[i]:4);
writeln;
end.

Пример:
Исходный массив:
  -8  -1   3   5
  22  25 -23 -17
  13   3  18  -1
   1 -19  13   0
Полученный массив:
   3   5  22  25  13   3  18   1  13
max = b[4] = 25
Измененный массив:
   3   5  22  13   3  18   1  13
Измененный массив:
   3  13  22  13   3  18   1   5