1)x = 4.5y = 2print(x // y)варианты ответов2.020.252.252)Что будет результатом выполнения алгоритма: а = 5b = 7a = int(input())b = int(input())s = a + bprint(s)варианты ответов5735123)Какой ряд чисел образуется после выполнения следующего алгоритма: for i in range(1, 10): print(i)варианты ответов1 101 2 3 4 5 6 7 8 91 2 3 4 5 6 7 8 9 10.​

Type
  St = record
    iquo: integer; {целая часть}
    irem: integer; {числитель дроби}
    idiv: integer; {знаменатель дроби}
  end;

function iMax(i, j: integer): integer;
begin
  if i > j then iMax := i else iMax := j
end;

function iMin(i, j: integer): integer;
begin
  if i < j then iMin := i else iMin := j
end;

function FR(i, j, k: integer): St;
var
  nmax, nmin: integer;

begin
  nmax := iMax(iMax(i, j), k);
  nmin := iMin(iMin(i, j), k);
  with Result do
  begin
    iquo := nmax div nmin;
    idiv := nmin;
    irem := nmax mod nmin
  end
end;

var
  a, b, c: integer;
  r: St;

begin
  write('Введите через пробел три целых числа:');
  readln(a, b, c);
  r := FR(a, b, c);
  writeln('Результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv)
end.

Тестовое решение:

Введите через пробел три целых числа:343 253 37
Результат работы функции: 9 целых и 10/37

1.
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('max = ',max,' min = ',min);
writeln(max,'-',min,' = ',max-min);
end.

Пример:
23 23 46 28 38 21 46 5 19 27
max = 46 min = 5
46-5 = 41

2.
const n=10;
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
writeln('Числа >5:');
for i:=1 to n do
 if a[i]>5 then write(a[i]:3);
end.

Пример:
Массив A:
 7 0 12 5 1 1 13 15 13 20
Числа >5:
 7 12 13 15 13 20

3.
const n=10; 
var a:array[1..n] of integer;
i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(11);
 write(a[i]:3);
 end;
writeln;
p:=1;
for i:=1 to n do
 if a[i]<>0 then p:=p*a[i];
write('p = ',p);
end.

Пример:
Массив A:
 5 7 1 6 0 0 4 1 5 0
p = 4200