Из положительных и отрицательных элементов исходного массива сформировать два новых - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

3.Составьте программу формирования из массива A двух массивов, в которых первый массив заполнен отрицательными, а второй - положительными элементами. Помогите пожалуйста

Решение задачи: «Из положительных и отрицательных элементов исходного массива сформировать два новых»

textual
Листинг программы
uses crt;
const nmax=100;
var a,b,c:array[1..nmax] of integer;
    n,m,k,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
m:=0;
k:=0;
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=-30+random(61);
  write(a[i]:4);
  if a[i]<0 then
   begin
    m:=m+1;
    b[m]:=a[i];
   end
  else if a[i]>0 then
   begin
    k:=k+1;
    c[k]:=a[i];
   end;
 end;
writeln;
if m=0 then writeln('В массиве А нет отрицательных элементов')
else
 begin
  writeln('Массив отрицательных элементов');
  for i:=1 to m do
  write(b[i]:4);
  writeln;
 end;
if k=0 then writeln('В массиве А нет положительных элементов')
else
 begin
  writeln('Массив положительных элементов');
  for i:=1 to k do
  write(c[i]:4);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

  1. Создаётся переменная nmax и присваивается ей значение 100.
  2. Создаются три переменные a, b и c типа array[1..nmax] of integer.
  3. Создаются три переменные n, m, k и i типа byte.
  4. Выполняется цикл repeat, который продолжается до тех пор, пока размер массива a не будет в диапазоне от 2 до nmax.
  5. Внутри цикла считывается размер массива a и выводится на экран.
  6. Инициализируется переменная m значением 0, а переменная k - значением 0.
  7. Выводится на экран сообщение о массиве A.
  8. Запускается цикл for, который выполняется для каждого элемента массива a от 1 до n.
  9. Внутри цикла считывается текущий элемент массива a и вычисляется его знак.
  10. Если элемент массива a отрицательный, то увеличивается значение переменной m на 1, и в массив b записывается текущий элемент массива a.
  11. Если элемент массива a положительный, то увеличивается значение переменной k на 1, и в массив c записывается текущий элемент массива a.
  12. После завершения цикла for выводится на экран сообщение о том, что в массиве A нет отрицательных или положительных элементов.
  13. Выводится на экран сообщение о массиве A.
  14. Выводится на экран сообщение о массиве B, если в массиве a были отрицательные элементы.
  15. Выводится на экран сообщение о массиве C, если в массиве a были положительные элементы.
  16. Выводится на экран символ новой строки.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы