Придумать свою задачу и написать программу в Pascal для ее решения. Программа должна содержать ветвление (условный оператор) и цикл.
Ребят хэлп! До завтра сдать надо.

var a: array [1..100] of real; i,n: integer;

t: real; begin  randomize;   n: =20;   for i: = 1 to n do begin      a[i]: =random(n*10)- 10*n div 2 ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;  

  t: =a[1]

  for i: = 1 to n do begin      a[i]: =a[i]/t ;       write(a[i]: 4);       if i mod 10=0 then writeln;   end;   end.

var a: array[1..100,1..100] of integer;

i,j,s,n,k: integer;

begin

  read(n);

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if i mod 2=0 then begin

                k: =k+1;

                s: =s+a[i,j];

          end;

      end;

      writeln(s/k);

end.

(1+1)*2+1=5((1+1)*2+1)*(2*2*2+1+1)=50(1+2*2*2)*(2*2*2+1+1)+(2*2*2+1)=99