паскаль

[IluaIvanov]

Добрый день, не могу решить 3 задачи по паскалю, если для кого-то не будет сложно, буду рад помощи:

1) Дан массив F1, ... , F20.
Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить положительные элементы нулями.
(с каким то внешним файлом)

2) Даны массивы
F1, ... , F15 – фамилии рабочих:
Z1, ... , Z15 – зарплата, начисленная за месяц.
Вывести список рабочих, чья зарплата выше средней, и список рабочих, чья зарплата ниже средней. Указать фамилию рабочего, с максимальной зарплатой.

3) В матрице найти два столбца с равными суммами и поменять их элементы местами.

заранее спасибо =)
PS: если тема с похожими задачами уже поднималась, дайте ссылочку пожалуйста (поиск не дал результатов)

[MoBLer]

Вроде так 1

 var
 f:array[1..20] of integer;
 p,o,i:integer;
begin
randomize;
p:=0;  o:=o+1;
for i:=1 to 20 do
begin

f[i]:=random(40)-20;
write(f[i],' ');
if f[i]>0 then p:=p+1 else o:=o+1;
end;
writeln;

if abs(p)>abs(o) then
for i:=1 to 20 do      begin
if f[i]>0 then f[i]:=0;
write(f[i],' ');
end else
for i:=1 to 20 do
write(f[i],' ');
readln
end.

[k0tone]

В матрице найти два столбца с равными суммами и поменять их элементы местами.

program matrica;
uses crt;
const n=4;
var a:array [1..n, 1..n] of integer;
    sum:array [1..n] of integer;
    i,j,k,l:integer;

begin
 clrscr;

 for i:=1 to n do
  for j:=1 to n do
   readln(a[i,j]);

 clrscr;

 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:5);
    writeln;
  end;

 for j:=1 to n do
  for i:=1 to n do
   sum[j]:=sum[j]+a[i,j];
  
 for i:=1 to n-1 do
  for j:=1 to n-i do
   if (sum[i]=sum[j+i]) then
    begin
     for k:=1 to n do
      begin
       l:=a[k,i];
       a[k,i]:=a[k,j+i];
       a[k,j+i]:=l;
      end;
     i:=n-1;
    end;

 writeln;

 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:5);
    writeln;
  end;

 readln;
end.