Даны действительные числа . получить квадратную матрицу порядка n:

===== PascalABC.NET =====

procedure CShL(var a: array of real) :=

   // циклический сдвиг влево на 1 элемент

   a := a[1:] + Arr(a[0]);

begin

 var n := ReadInteger('n =');

 var a := SeqRandomReal(n, -99, 99)

     .Select(p -> Round(p, 1))

 .ToArray;

 var b := new real[n, n];

 for var i := 0 to n - 1 do

 begin

   b.SetRow(i, a);

   CShL(a)

 end;

 b.Println(6, 1)

end.

var a, b, c,d,e,f,g : integer;

begin

  for var i := 1 to 28 do begin

     readln(a);

     if a = 2 then b := b + 1

     else if a = 3 then c := c + 1

     else if a = 4 then d := d + 1

     else if a = 5 then e := e + 1;

     if i <= 14 then f := f + a

     else g := g + a;

  end;

  f := round(f / 14);

  g := round(g / 14);

  writeln('Число двоек : ',b);

  writeln('Число троек : ',c);

  writeln('Число четвёрок : ',d);

  writeln('Число пятёрок : ',e);

  writeln('Число двоек : ',a);

  writeln('Средний балл среди мальчиков : ', f);

  writeln('Средний балл среди девочек :', g);

end.

1.

 

program simple;

var a,b:integer;

begin

 writeln('daite a, b); readln(a,b);

 writeln('x = ', b/a); readln;

end;

 

2.

 

program day;

var h,hours,minutes:longint;

begin

  writeln('daite secundi'); readln(h);

  hour:= h div 3600; minutes:=h mod 36000;

  if (minutes > 60) or (minutes=60) then 

   begin

     hour:=hour+1;

     minutes:=minutes-60;

  end;

  writeln('It is 'hours' hours 'minutes' minutes');

readln;

end;

 

3.

 

program summaChisla;

var s:string; i,sum: longint; c,cod:integer;

begin

  writeln('daite nomer); readln(s);

  for i:=1 to length(s) do

   begin

      val(s[i],c,cod); sum:=sum+c;

   end;

writeln('summa :',sum); readln;

end;