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

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

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

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


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