В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Рад1111111
Рад1111111
04.05.2020 20:36 •  Информатика

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.

Показать ответ
Ответ:

1 . Какая программа не является электронной г) Word

2. Как называется документ в программе Excel?

б) книга

3. Рабочая книга состоит из…

б) нескольких рабочих листов

4. Наименьшей структурной единицей внутри таблицы является..

б) ячейка

5.

г) картинки

6. Значения ячеек, которые введены пользователем, а не получаются в результате расчётов называются…

в) исходными

7. Укажите правильный адрес ячейки.

б) Р6

8. К какому типу программного обеспечения относятся ЕТ?

в) к прикладному

9 Тест. Формула - начинается со знака…

в) =;

10. Какая ячейка называется активной?

в) заполненная

0,0(0 оценок)
Ответ:
Annarasumanara2002
Annarasumanara2002
01.06.2023 16:07

1 string - тип данных строка (любые символы), используются при наборе текста.

integer - тип данных число(цифры), используется ТОЛЬКО цифры.

2 Общий формат - это string (в нужных программах). Например при вводе года рождения пользователя

3 Конкатенация - формат типа integer в string. В некоторых языках программирования это важно. Например python

4 Числовой тип, только цифры. Текстовой любой тип. Формула в Excel это алгоритм выполнения функции. Формула начинается со знака "=".

Используется знаки *, /, : ,+, ^

5 пункта нету

6 Относительный ссылки, чтобы сделать относительную ссылку нужно перед буквой или цифрой поставить знак "$". Чтобы при протягивании формулы по клетками, в формуле автоматически не менялось, то значение, перед котлрым стоит знак "$"

7 Относительная ссылка - "$B3-D1"

Абсолютная ссылка - "B3 -D1"

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота