Pascal
Надо что-то исправить, чтобы процедура "poparno" меняла местами попарно рядом стоящие элементы выводимых массивов, а пока что оно выполняет функцию рандомно, не учитывая массивов
type
mas=array[1..20] of integer;
var mas1, mas2 :mas;
Procedure Form(var mas1: mas; size:byte);
var i:byte;
begin
for i:=1 to size do
mas1[i]:=random(256);
end;
Procedure vivod(mas1: mas; size: byte);
var i: byte;
begin
for i:=1 to size do
write(mas1[i]:5);
end;
function nenul (mas1: mas; size: byte): integer;
var
i,k: byte;
begin
k:=0;
for i:=1 to size do
if mas1[i]<>0 then k:=k+1;
nenul:=k;
end;
procedure poparno(var mas1: mas; size: byte; x:integer);
var
i:byte;
begin
for i:=1 to size do
begin
mas1[i]:=random(256);
end;
i:=1;
while i begin
x:=mas1[i];
mas1[i]:=mas1[i+1];
mas1[i+1]:=x;
i:=i+2;
end;
end;
var size:byte;
k,x:byte;
begin
form(mas1, 10);
writeln('массив F ');
vivod(mas1, 10);
writeln;
writeln('Количество ненулевых элементов = ', nenul(mas1, 10):5);
poparno(mas1, 10, x);
vivod(mas1, 10);
form(mas2, 20);
writeln;
writeln;
writeln('Массив P ');
vivod(mas2, 20);
writeln;
writeln('Количество ненулевых элементов = ', nenul(mas2, 20):5);
poparno(mas2, 20, x);
vivod(mas2, 20);
end.
