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

Program maxd; // вводятся площади квадратов, окончание ввода по значению 0 // найти диагональ максимального размера. // поскольку диагональ равна квадратному корню из удвоенной площади, // надо найти максимальную площадь, а затем вычислить диагональ. var   s,smax: real; begin   smax: =0;   writeln('вводите площади квадратов, 0 - конец ввода');   repeat       readln(s);       if s> smax then smax: =s   until s=0;   writeln('максимальная длина диагонали равна ',sqrt(2*smax)) end. тестовое решение: вводите площади квадратов, 0 - конец ввода 5 10 12 13.6 11 18 0 максимальная длина диагонали равна 6

//pascal abc.net v3.1 сборка 1219 const   n=5; var   ar: array[1..n] of real;   i,maxi,mini: integer;   s,min,max: real; begin   randomize;   min: =2147483647;   max: =-2147483648;   writeln('first array: ');   for i: =1 to n do     begin     ar[i]: =random(30);     write(ar[i]: 6);     if ar[i]> max then       begin       max: =ar[i];       maxi: =i;       end;     if ar[i]< min then       begin       min: =ar[i];       mini: =i;       end;       s: =s+ar[i];     end;   s: =s/n;   ar[maxi]: =ar[maxi]-maxi;   ar[mini]: =ar[mini]+s;   writeln;   writeln('final array: ');   for i: =1 to n do   write(ar[i]: 6); end.

  1)  var i,n,k: integer;   a: array[1..10] of integer; begin   for i: =1 to 10 do   read(a[i]);   writeln;   for i: =10 downto 1 do   write(a[i],' ');   readln;   readln end. 3) var i,n,k: integer; a: array[1..10] of integer; begin   for i: =1 to 10 do   read(a[i]);   writeln;   writeln((a[5]+a[6])/2: 0: 2);   readln;   readln end. 4) var i,n,k,min: integer; a: array[1..10] of integer; begin   for i: =1 to 10 do   begin     read(a[i]);     if (a[i] mod 10=4) or (a[i] mod 10=-4)     then min: =a[i];   for i: =1 to 10 do     if ((a[i] mod 10=4) or (a[i] mod 10=-4)) and (a[i]< min)     then min: =a[i];   writeln(min); end. 5)   var i,n,k,max: integer; a: array[1..10] of integer; begin   max: =0;   for i: =1 to 10 do   begin     read(a[i]);     if (a[i] mod 5=0) and (a[i]> max)     then max: =a[i];   end;   writeln(max); end.