Даны два массива. Получить третий массив который на четных номерах элементы второго массива на нечетных элементы первого массива. решите пожалуйста
10-11 класс
|
через 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.
Другие вопросы из категории
варианты ответов
А) 01010101
В) 00110010
С) 00011101
Д) 11001100
Е) 10101010
ответе укажите только число).
Зашифровать ее, переворачивая каждое слово. Создать процедуры для разбиения строки на слова и записи слова в обратном порядке.
Привет, Вася!
!ясаВ ,тевирП
Читайте также
Объединить два массива в один массив с чередованием элементов исходных
массивов. Вывести новый массив.
паскаль.
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.
2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.
Помогите пожалуйста!