Даны два массива. Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива. решите пожалуйста чер

1 Январь 0001



Даны два массива. Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива.

решите пожалуйста через pascal ABC и опишите программу

  • Количество элементов в массивах одинаковое и равно n.
    a - первый массив
    b - второй массив
    c - третий массив
    i – цикловая переменная, индекс элемента массива



    var
    a, b, c : array [1..100] of integer;
    n, i : integer;
    begin
    readln (n);
    for i := 1 to n do
    readln (a [ i ]);
    [ввели первый массив]
    for i := 1 to n do
    readln (b [ i ]);
    [ввели второй массив]
    for i := 1 to n do
    begin
    if i mod 2 = 0 then  [проверка индекса элемента на чётность] 
    c [ i ] = b [ i ];
    else
    c [ i ] = a [ i ];
    end;
    [создали третий] 
    for i := 1 to n do
    writeln (c [ i ] : 4);
    [вывод третьего массива]
    end.



    Можно всё это сделать одним циклом.

    var
    a, b, c : array [1..100] of integer;
    n, i : integer;
    begin
    readln (n);
    for i := 1 to n do
    begin
    readln (a [ i ]);
    readln (b [ i ]);
    if i mod 2 = 0 then
    c [ i ] = b [ i ];
    else
    c [ i ] = a [ i ];
    writeln (c [ i ] : 4);
    end;
    end.



  • uses crt; {подключение модуля crt}
    var {описание переменных}
       a,b,c:array [1..100] of integer;
      i:integer;
    begin
      write(‘Введи количество элементов массива: ‘); read(i); {вывод текста на экран и чтение вводимых данных}
      clrscr; {очистка экрана}
      writeln(‘Первый массив: ‘); {вывод текста на экран}
      for i:=1 to i do {цикл}
      begin
        a[i]:=random(10); {значения первого массива от 0 до 9}
        b[i]:=random(10)-10; {значения второго массива от -10 до -1}
        if i mod 2=0 then c[i]:=b[i] {четные элементы третьего массива}
          else c[i]:=a[i]; {нечетные элементы третьего массива}
        write(a[i]:4); {вывод на экран первого массива}
      end; {конец цкла}
      writeln; writeln(‘Второй массив’); {вывод текста на экран}
      for i:=1 to i do {цикл}
        write(b[i]:4); {вывод второго массива на экран}
      writeln; writeln(‘Третий массив:’); {вывод текста}
      for i:=1 to i do {цикл}
        write(c[i]:4); {вывод третьего массива}
    end.









Информатика

Комментарии закрыты.