Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива таким образом, что производится перестановка 6 и 16 элементов массива

Question

Информатика

Алека

21 августа, 17:55

Составьте программу, которая формирует массив из 20 случайных чисел, и выводит на экран вначале исходные, а затем преобразованные элементы массива таким образом, что производится перестановка 6 и 16 элементов массива

+1

Ответы (1)

Знаете ответ на вопрос?

Ксеня · Answer 1

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.