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.

220

367

Посмотреть ответы 1

Ответы на вопрос:

dmitriq20061

Информатика

4,7(39 оценок)

k - 1000

l - 1001

m - 1010

n - 1011

kmln = 1000 1010 1001 1011

в восьмеричную проще всего перевести разбив на группы по 3 разряда и расшифровать с учетом того, что 0 - 000, 1 - 001, 2 - 010, 7 - 111

т.е.

kmln = 1000 1010 1001 1011 = 001 000 101 010 011 011 = 1 0 5 2 3 3

ответ №2

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.