Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива таким образом, что производится перестановка 6 и 16 элементов массива
Ответы
Ответ дал:
0
program z1;
var
a:array [1..20] of integer;
b,i:integer;
begin
b:=0;
for i:= 1 to 20 do
a[i]:=random(30)-15;
for i:= 1 to 20 do
write(a[i]);
writeln;
b:=a[6];
a[6]:=a[16];
a[16]:=b;
write(a[i]);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад