Написати програму що знаходить значення виразу:1²+2²+3²+4²​

var

 mas: array[0..11] of integer;

 a, c, b: integer;

begin

 for a := 0 to 9 do  

 begin

   mas[a] := random(-50, 50);//pascalabc.net позволяет задавать диапазон случайных чисел  

   write(mas[a], ' ');

   if mas[10] > mas[a] then begin mas[10] := mas[a]; b := a; end;

   if mas[11] < mas[a] then begin mas[11] := mas[a]; c := a; end;

 end;

 writeln;

 writeln('min[', b, '] = ', mas[10]);

 writeln('max[', c, '] = ', mas[11]);

 a := mas[b];

 mas[b] := mas[c];

 mas[c] := a;

 for a := 0 to 9 do write(mas[a], ' ');

end.

1 - не сделаю. Тк нет 121 стр...

Номер 2.

          10,2        10,8     -10,2      -10,8

Round(x) 10            11          -10          -11

Int(x)         10          10           -10         -10

Frac(x)      2            8             2            8

3.

program S;

var a, b: real;

begin

   write('a: ');

   readln(a);

   write('b: ');

   readln(b);

   

   writeln(a*b);

end.

4. Думаю сам справишься)))0)

Объяснение:

2. Думаю в объяснении не нуждается. В задании и так написано, что происходит)))

3. Создали переменные, запросили значения, вывели произведение.