Напишите программу на паскале. в двумерном массиве z[1..5, 1..5]найти наименьший элемент среди элементов (побочной) диагонали

var z: array[1..5,1..5] of real;

    i, j: integer;

    min: real;

 

begin

    for i : = 1 to 5 do

      for j : = 1 to 5 do

          readln(z[i,j]);

    min : = z[1,5];

    for i : = 2 to 5 do

      if (min > z[i,6-i]) then

          min : = z[i,6-i];

    writeln("min value is ",min)

end.

 

Var       k: integer;       a, s: real; begin       write('начальная стоимость: ');       readln(a);       write('число проданных газет:   ');       readln(k);             if k < = 50 then s : = k * a       else       begin               s : = 50 * a;               s : = s + (k - 50) * a * 1.2;       end;       writeln('выручка составила  ', s, ' руб.'); end.

//pascalabc.net 3.2 сборка 1318 var   n,i,j,resi,resj,flag: integer; begin flag: =0; i: =1; readln(n); while power(i,3)< n do   begin     j: =1;     while power(j,3)+power(i,3)< =n do       begin         if power(j,3)+power(i,3)=n then         begin           flag: =1;           resi: =i;           resj: =j;           break;         end;         inc(j);       end;     if flag=1 then break;     inc(i);   end; if flag=1 then writeln(resi,' ',resj,' ',resj,' ',resi) else writeln('impossible'); end. пример ввода: 1008                             //2^3+10^3 пример вывода: 2 10 10 2