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. Создали переменные, запросили значения, вывели произведение.
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.