Мне надо решить по информатике в программе pascal или на листочке. решить №1(линейный алгоритм) составить и выполнить программу, задав входные данные самостоятельно вычислить сторону, площадь (s=d2/2) и периметр квадрата, если если известна его диагональ d.

Program project1; var  a, p, s, d : real; begin   readln(d);   a: = d/sqrt(2);   s: = sqr(a);   p: = 4*a;   writeln('сторона: ',a);   writeln('площадь: ',s);   writeln('периметр: ',p);   end.

См. вложенную картинку. сам алгоритм такой: представим, что у нас есть две стопки карточек, на каждой карточке  написано число, в каждой стопке карточки  (на  верхней карточке написано число не меньшее, чем на нижней). требуется переложить эти карточки в ряд  в порядке возрастания написанных на них чисел. мы сравниваем числа, написанные на самых верхних карточках в каждой стопке (все числа, написанные на карточках под ними - гарантированно больше). карточку с меньшим числом кладём на очередное место в ряду и опять  сравниваем карточки сверху каждой стопки. когда одна из стопок кончилась - выкладываем по порядку все оставшиеся карточки.

program zd4;

uses crt;

type mas=array[1..20,1..20] of real;

var a: mas; g,b,i,j,n,m,nom1,nom2: integer; max: real;

begin

        clrscr;

        write ('введите размер массива: ');

        readln (n,m);

        write ('введите диапазон чисел в массиве: ');

        readln (g,b);

        randomize;

        for i: =1 to n do

                begin

                          for j: =1 to m do

                                  begin

                                            a[i,j]: =random(b-g)+g;

                                            write (a[i,j]: 5: 0,'  ');

                                  end;

                                  writeln;

                end;

        nom1: =1;

        nom2: =1;

        max: =a[1,1];

        for i: =1 to n do

            begin

                for j: =1 to m do

                        begin

                                  if a[i,j]> max then

                                      begin

                                        max: =a[i,j];

                                        nom1: =j;

                                        nom2: =i;

                                      end;

                        end;

            end;

        writeln ('максимальный элемент массива= ',max: 5: 0,' ,его координаты ','[',nom1,',',nom2,']');

readln;

end.

так?