Программы в Паскаль! Буду признательна!

[Lika199850]

Задача 1.
Найдите сумму трех наибольших Положительных нечетных элементов исходного массива Р(22)
Задача 2.
-Найдите <суммы положительных кратных 5> элементов каждого столбца матрицы Х(4,5). Результат запишите в массив В.
-Найдите разницу <Суммы положительных > элементов главной диагонали и <Минимального кратного 3> элементов строки матрицы Х(6,6).
Задача 3.
Найдите сумму минимальных <отрицательных > элементов массивов X,Y,W.
a1 a2 b1 b2 c1 c2 d1 d2
2 10 4 6 8 3 5 12

[Aleksandr H.]

1
2_1

uses crt;
procedure Zad1;
const n = 15;
var p:array[1..n]of integer;
    i:integer;
    m1,m2,m3:integer;
    h:integer;
begin
 clrscr;
 randomize;
 for i:=1 to n do
  begin
        p[i]:=-10+random(15);
        write(p[i]:4);
  end;
 writeln;
 for i:=1 to n do if p[i]<0 then write('  ':4) else write(p[i]:4);
 writeln;
 m1:=-1;
 m2:=-1;
 m3:=-1;
 for i:=1 to n do
  begin
    h:=p[i] mod 2;
    if (p[i]>0) and (p[i] mod 2 <> 0) then
     begin
       if p[i]>=m1 then begin m3:=m2; m2:=m1;m1:=p[i];end
       else if p[i]>=m2 then begin m3:=m2; m2:=p[i] end
       else if p[i]>=m3 then m3:=p[i]
     end;
  end;
  i:=0;
  writeln;
  if m1>0 then begin writeln('m1 = ',m1); i:=i+m1;end;
  if m2>0 then begin writeln('m2 = ',m2);i:=i+m2;end;
  if m3>0 then begin writeln('m3 = ',m3);i:=i+m3;end;
  writeln;
  writeln('sum = ',i);
  writeln('Press ENTER');
  ReADLN;
end;

procedure Zad2_1;
var
   x:array[1..4,1..5] of integer;
   b:array[1..5] of integer;
   i,j:integer;
begin
 clrscr;
 randomize;
 for i:=1 to 5 do b[i]:=0;
 for i:=1 to 4 do
  begin
    for j:=1 to 5 do
     begin
       x[i,j]:=-7+random(70);
       if x[i,j]<0 then write(x[i,j],'   ') else write(x[i,j],'    ');
       if (x[i,j]>0) and (x[i,j] mod 5 = 0) then b[j]:=b[j]+x[i,j];
     end;
     writeln;
  end;
  writeln;
  for i:=1 to 5 do
    if b[i]<0 then write(b[i],'   ') else write(b[i],'    ');
  writeln;
  writeln('Press ENTER');
  readln;
end;

BEGIN
Zad1;
Zad2_1;
end.