Есть ответ 👍

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

273
398
Посмотреть ответы 3

Ответы на вопрос:

mrvlad12
4,7(21 оценок)

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.

pashnina379
4,6(40 оценок)

количество элементов в массивах одинаковое и равно n.a -  первый массивb -  второй массивc -  третий массивi - цикловая переменная, индекс элемента массиваvara, b, c : array [1..100] of integer; n, i : integer; beginreadln (n); for i : = 1 to n doreadln (a [ i ]); [ввели первый массив]for i : = 1 to n doreadln (b [ i ]); [ввели второй массив] for i : = 1 to n do beginif i mod 2 = 0 then  [проверка индекса элемента на чётность]  c [ i ]  =  b [ i ]; elsec [ i ] = a [ i ]; end; [создали третий]  for i : = 1 to n do writeln (c [ i ] : 4); [вывод третьего массива]end.можно всё это сделать одним циклом. vara, b, c : array [1..100] of integer; n, i : integer; beginreadln (n); for i : = 1 to n dobeginreadln (a [ i ]); readln (b [ i ]); if i mod 2 = 0 thenc [ i ]  =  b [ i ]; elsec [ i ] = a [ i ]; writeln (c [ i ] : 4); end; end.

manya48
4,4(26 оценок)

3246 бит = 405.75 байт = 0.396240234 Кбайт

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS