Составьте программу, которая заполняет массив a[1..10] - вопрос №4637494110 от feeedf 26.08.2021 13:31

Question

Информатика: Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем меняет местами первый элемент со вторым, третий с четвертым и т. д. выведите на экран исходный и полученный массивы. program shist; var a: array[1..10] of integer; i, z, max: integer; begin for i: =1 to 10 do a[i]: =random(11); writeln ( исходный массив ); for i: =1 to 10 do write (a[i], ); writeln; for i: =1 to 10 do if i mod 2 0 then begin z: =a[i]; a[i]: =a[i+1]; a[i+1]: =z; end; writeln(

feeedf · Answer

//Зачем прикручивать дополнительный if, когда можно сделать while?
var ar:array[1..10] of integer;i:integer;

procedure swap(var a,b:integer);
var c:integer;
begin;
c:=a;
a:=b;
b:=c;
end;

begin;
randomize;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(11);
write(ar[i]:4);
end;
i:=1;
while i<10 do
begin;
swap(ar[i],ar[i+1]);
i:=i+2;
end;
writeln;
writeln('Final array:');
for i:=1 to 10 do
write(ar[i]:4);
end.