Сформировать третий массив из элементов исходных массивов, большиз 3, но меньших 10 - Pascal ABC
Формулировка задачи:
1.Сформировать третий массив из элементов исходных массивов,большиз 3 ,но меньших 10.
2.Заменить отрицательные элементы,стоящие на нечётных местах.их модулями.
Решение задачи: «Сформировать третий массив из элементов исходных массивов, большиз 3, но меньших 10»
textual
Листинг программы
uses crt; var a, b, c: array[1..100] of integer; i, d, num, d1: integer; begin //обработка первого множества writeln('введите кол-во чисел в 1 множестве'); readln(d); for i := 1 to d do begin readln(a[i]); if a[i] < 0 then a[i] := a[i] * -1; if (a[i] > 3) and (a[i] < 10) then begin num := num + 1;c[num] := a[i]; end; end; //обработка второго множества writeln('введите кол-во чисел в 2 множестве'); readln(d1); for i := 1 to d1 do begin readln(b[i]); if b[i] < 0 then b[i] := b[i] * -1; if (b[i] > 3) and (b[i] < 10) then begin num := num + 1;c[num] := b[i]; end; end; //вывод результата clrscr; //первый массив for i := 1 to d do write(a[i], ' '); writeln; //второй массив for i := 1 to d1 do write(b[i], ' '); writeln; //третий массив for i := 1 to num do write(c[i], ' '); end.
Объяснение кода листинга программы
- Создаются два массива a и b, каждый из которых может вместить до 100 элементов.
- Пользователю предлагается ввести количество чисел для первого и второго множества соответственно.
- Для каждого числа во входном множестве:
- Проверяется, является ли число отрицательным. Если да, то оно умножается на -1.
- Проверяется, находится ли число в диапазоне от 3 до 10. Если да, то оно добавляется в соответствующий массив.
- Выводится содержимое каждого массива.
- Код написан на языке Pascal ABC.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д