ABC Pascal
с помощью генератора случайных чисел задать массив счетным количеством элементов, поменять местами элементы, стоящие на 1 и 3, 5 и 7, 9 и 11 и т.д.
с помощью генератора случайных чисел задать массив счетным количеством элементов, поменять местами элементы, стоящие на 1 и 3, 5 и 7, 9 и 11 и т.д.
Answers & Comments
Ответ:
vvar a:array [1..10] of integer; //Эту
j,i,l,pr:integer;
begin //Для изменения диапозона надо менять 2 переменные. Они должны быть равны.
i:=10; // Эту
for j:=1 to i do a[j]:=random(10);
writeln ('Каким был массив:');
writeln (a);
for j:=1 to i-1 do
begin
if j mod 2=0 then inc(l) else continue;
if l mod 2<>0 then begin pr:=a[j-1]; a[j-1]:=a[j+1]; a[j+1]:=pr end;
end;
writeln ('Каким стал:');
writeln (a);
end.