200 Мбит/с делим на 8 и получаем скорость 25 Мбайт/с
<span>25 * 60 = 1500 Мбайт</span>
Выделить нужные ячейки.
Сделать форматирование (по ширине, высоте, межстрочному интервалу и т.п.).
Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Только один человек удовлетворяет удовлетворяет все условия
Номер 5