разработать алгоритм и программу нисходящим способом,предполагая заданной матрицу из 5 строк и 5 столбцов

[Shuma]

помогите решить 2 задачи
условие первой
разработать алгоритм и программу нисходящим способом,предполагая заданной матрицу A из 5 строк и 5 столбцов или одномерные массивы указанной длины
а условие ко второй на картинке,пожалуйста помогите очень надо
DSC06331.JPGDSC06330.JPGDSC06329.JPG

[alex_fcsm]

Может я и ошибаюсь, но я сравниваю элементы соответствующих столбцов и формирую c[k]

uses crt;
const m=10;k=5;
var i,j:integer;
    a,b:array[1..m,1..k] of integer;
    c:array[1..k] of integer;
    flag:boolean;
begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to k do
 begin
 a[i,j]:=random(10);
 write(a[i,j],' ');
 end;
writeln;
end;
writeln('============');
for i:=1 to m do
 begin
  for j:=1 to k do
 begin
 b[i,j]:=random(3);
 write(b[i,j],' ');
 end;
writeln;
end;
writeln('============');
for j:=1 to k do
 begin
 flag:=true;
 c[j]:=0;
  for i:=1 to m do
   if a[i,j]<b[i,j] then flag:=false;
 if flag then
 for i:=1 to m do
   c[j]:=c[j]+a[i,j]+b[i,j];
 end;
writeln;
for i:=1 to k do
 write(c[i],' ');
end.

P.S. Иначе чтобы все элементы были больше всех соответствующих

uses crt;
const m=10;k=5;
var i,j:integer;
    a,b:array[1..m,1..k] of integer;
    c:array[1..k] of integer;
    flag:boolean;
begin
randomize;
clrscr;
for i:=1 to m do
 begin
  for j:=1 to k do
 begin
 a[i,j]:=random(100);
 write(a[i,j],' ');
 end;
writeln;
end;
writeln('============');
for i:=1 to m do
 begin
  for j:=1 to k do
 begin
 b[i,j]:=random(3);
 write(b[i,j],' ');
 end;
writeln;
end;
writeln('============');
for j:=1 to k do
 begin
 flag:=true;
  for i:=1 to m do
   if a[i,j]<b[i,j] then flag:=false;
 end;
if flag then
for j:=1 to k do
 begin
 c[j]:=0;
  for i:=1 to m do
   c[j]:=c[j]+a[i,j]+b[i,j];
 end;
writeln;
if flag then
for i:=1 to k do
 write(c[i],' ');
 
end.

[Shuma]

Спасибочки

еще с одной задачей помогите

условие в первом сообщении