Сформировать третий массив из элементов исходных массивов, большиз 3, но меньших 10 - Pascal ABC

  1. 1.Сформировать третий массив из элементов исходных массивов,большиз 3 ,но меньших 10. 2.Заменить отрицательные элементы,стоящие на нечётных местах.их модулями.


textual

Код к задаче: «Сформировать третий массив из элементов исходных массивов, большиз 3, но меньших 10 - Pascal ABC»

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.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 4.231 из 5



Похожие ответы
  1. Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу. ЗАДАНИЕ: Сформировать массив из чисел, больших среднего.

  1. Сформировать новый массив из положительных элементов первого массива и элементов второго массива, расположенных после самого левого минимального элемента этого массива.

  1. Дано массив А(M,M). Сформировать массив P из произведений элементов на параллелях, которые лежат над главной диагональю.

  1. Требуется помощь по двумерным массивам в PascalABC. Никак не могу составить программу. Задание такое: "Сформирвать квадратную матрицу порядка n по заданному массиву" 1 0 0 0 0 6 0 2 0 0 5 0 0 0 3 4 0 0 0 0 3 4 0 0 0 2 0 0 5 0 1 0 0 0 0 6

  1. Дано массив B(M,M). Сформировать массив S из суммы тех элементов столбцов, которые размещены под главной диагональю, массив P из произведений элементов на параллелях, которые лежат над главной диагональю. Полученные массивы объединить в массив С следующим образом: C (S1, S2, S3, ... ,P3, P2, P1).

  1. Напишите программу, которая формирует множество Y=(X1 X2) и выделите из него подмножество Y1 чисел, которые являются четными числами.

  1. Написать алгоритм, составить блок-схему и отладить программу. Помогите решить задачу, и обьясните, пожалуйста, как вы ее сделали. Задан массив из M элементов. Определить куб каждого из элементов и сформировать новый массив. Заранее спасибо.

  1. Сформировать одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива, меньших данного числа.

  1. Упорядочить четные по значению элементы второй третий массива по убыванию.

  1. подскажите пожалуйста, почему у меня не получается доделать ее