информатика
Создайте одномерный массив, поменяйте местами первый элемент кратный 7 и средний элемент,решить на Pascal ABC.
Оставить ответОтвет №1
//PascalABC.NET 3.0 сборка 1139 (10.01.2016)
begin
var a := ArrRandom(10, 1, 100);
a.Println;
if not a.Any(x -> x mod 7 = 0) then begin
writeln('нет элемента, что делится на 7');
Halt();
end;
var n7 := 0;
for var i := Low(a) to High(a) do
if a[i] mod 7 = 0 then begin
n7 := i;
break;
end;
var t := a[(Low(a) + High(a)) div 2];
a[(Low(a) + High(a)) div 2] := a[n7];
a[n7] := t;
a.Println;
end.
Знаете ответ?