со схемой алгоритма, кто шарит Текст:
program n5;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
n,m,i,j:byte;
s,max:integer;
begin
randomize;
repeat
write('количество строк=');
readln(m);
until m in [1..nmax];
repeat
write('количество столбцов=');
readln(n);
until n in [1..nmax];
writeln('исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)-2;
write(a[i,j]:3);
end;
writeln;
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to m do
if a[i,j]>0 then s:=s+a[i,j];
a[m+1,j]:=s;
if s>max then max:=s;
end;
for i:=1 to n do
if a[m+1,i]=max then writeln('столбец № ',i);
end.

program z1;

uses GraphABC;

var t:integer;

begin

SetWindowSize(400,400);

write('Введите показания температуры: ');

read(t);

SetPenWidth(3);

if t<=0 then

begin

SetPenColor(clBlue);

Line (150,200,200,150);

Line (200,150,250,200);

Line (250,200,200,250);

Line (200,250,150,200);

FloodFill(200,200,clSkyBlue);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100)

end

else

begin

SetPenColor(clYellow);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100);

SetBrushColor(clYellow);

Circle(200,200,50)

end

end.

Объяснение:

Вводим температуру

Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко

Программа:

алг

нач

   цел х

   лит пол

   вывод 'Введите возраст: '

   ввод х

   вывод 'Введите пол (одной буквой): '

   ввод пол

   выбор

       при пол = 'м':

           выбор

               при х>=2 и х<4 : вывод '1000 калорий'

               при х>=4 и х<9 : вывод '1500 калорий'

               при х>=9 и х<14 : вывод '2000 калорий'

               при х>=14 и х<19 : вывод '2600 калорий'

               при х>=19 и х<31 : вывод '2700 калорий'

               при х>=31 и х<51 : вывод '2500 калорий'

               при х>=51 и х<100 : вывод '2300 калорий'

           иначе

               вывод 'Ошибка при вводе возраста'

           все

       при пол = 'ж':

           выбор

               при х>=2 и х<4 : вывод '1000 калорий'

               при х>=4 и х<9 : вывод '1500 калорий'

               при х>=9 и х<14 : вывод '1800 калорий'

               при х>=14 и х<19 : вывод '2000 калорий'

               при х>=19 и х<31 : вывод '2100 калорий'

               при х>=31 и х<51 : вывод '2000 калорий'

               при х>=51 и х<100 : вывод '1600 калорий'

           иначе

               вывод 'Ошибка при вводе возраста'

       все

   иначе

       вывод 'Ошибка при вводе пола'

   все

кон

Результат выполнения: