Const
n = 5;
var
a: array [0..n-1] of shortint;
i: byte;
begin
randomize;
writeln ('Сформированный массив: ');
for i:=0 to n-1 do
begin
a[i]:=random (51);
write (a[i], '; ');
end;
end.
найти пару носков
взять один носок, взять второй носок
если носки составляют пару, то ура
если не пара, то опять берем носки
найти пару взаимно простых чисел
взять одно число
взять второе число
Если они взаимно простые , то ура
иначе опять ищем числа
Символысимволысимволы
В третьей через архиватор быстрее.
<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=MatrRandom(7,7,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Сумма по первой строке: ',a.Row(0).Sum)
end.