ПОМОГИТЕ решить 5 задачек

[РомКа]

]1) Массив А[30].Найти в нем max элементы, затем , элементы располоденные до него записать в массив В[ ], после него в массив С[ ].
2) Найти в каждом столбце двухмерного массива А[5 ,5] сумму элементов, кратные 3 и 5.Вывести массив в виде таблицы в дополнительной 6 строке вывести сумму элементов столбца.
3) Структура записи:фамилия , год установки телефона номер телефона кол-во записей –n
Выдать след информацию 1)по введенной фамилии выдать номер телефона 2)вводится год.Вывести кол-во установленных телефонов после данного года
4) Даны три массива А[10] B[10] С[10].Вычислить сумму максимальных элементов этих массивов
Нахождение максимального элемента сделать в процедуре.
5) В двухмерном массиве М[5,5] найти кол-во элементов кратных 7 в каждом столбце.Вывести на экран матрицу и кол-во элементов каждого столбца

[DM_bite]

4.

program Xd;
const n=10;
var a,b,c:array [0..n] of integer;
    i,amax,bmax,cmax: integer;
    begin
    randomize;
     for i:= 0 to n do
     begin
     a[i]:= random(100);
     b[i]:= random(100);
     c[i]:= random(100);
     end;
     amax:= a[n]; bmax:= b[n]; cmax:= c[n];
     for i:= 0 to n do
       begin
       if a[i]>amax then
       begin
      amax:= a[i];
       end;
       if b[i]>bmax then
       begin
       bmax:= b[i];
       end;
       if c[i]>cmax then
       begin
       cmax:= c[i];
       end;
       end;
       WriteLn(amax+bmax+cmax);
       ReadLn;
       end.

[MAKEDON]

Ну впринципе все не особо сложно. Какие проблемы возникли? На каком языке писать будете?

[DM_bite]

5.

program Xd;
const n=5;
var a:array [1..n,1..n] of integer;
    i,k,j: integer;
    begin
    randomize;
    for i:=1 to n do
    for j:=1 to n do
    begin
    a[i][j]:= random(i*j)+random(n);
    end;
    for i:= 1 to n do
    begin
     for j:= 1 to n do
     begin
     Write(a[i][j],'! ');
     end;
     WriteLn;
     end;
     for j:= 1 to n do
     begin
      k:=0;
      for i:= 1 to n do
       begin
       if a[i][j] mod 7=0 then inc(k);
       end;
        Write(k,'_');
       end;
       ReadLn;
       end.

[DM_bite]

2.

program xd;
const n=6;
var a:array [1..n,1..n] of integer;
    i,sum,j: integer;
    begin
    randomize;
    for i:= 1 to n do
     for j:= 1 to n do
     begin
     a[i][j]:= random(i*j)-random(n);
     end;
     for i:= 1 to n do
     begin
      for j:= 1 to n do
      begin
       Write(a[i][j],'_');
       end;
       WriteLn;
       end;
       for j:= 1 to n do
       begin
        sum:=0;
        for i:= 1 to n do
        begin
         if (a[i][j] mod 3 = 0) or (a[i][j] mod 5 = 0) then inc(sum, a[i][j]);
         end;
         Write(sum,' ');
         end;
     ReadLn;
     end.

[alex_fcsm]

1

const n=30;
var a,b,c:array[1..n] of integer;
    i,max:integer;

begin
max:=1;
for i:=1 to n do
   begin
    a[i]:=random(100);
    if a[i]>a[max] then max:=i;
    write(a[i],' ');
   end;
writeln;
for i:=1 to max-1 do
 begin
  b[i]:=a[i];
  write(b[i],' ');
 end;
writeln;
for i:=max+1 to n do
 begin
   c[i-max]:=a[i];
   write(c[i-max],' ');
 end;
writeln;
end.

2

uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,sum:integer;

begin
clrscr;
for i:=1 to n do
 begin
  sum:=0;
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
    if (a[i,j] mod 3 =0) and (a[i,j] mod 5 =0) then sum:=sum+a[i,j];
   end;
    write('|');
    write(sum:4);
  writeln;
 end;
end.