сервис вопросов и ответовзаданы 2 одномерных массива. Сформировать третий из элементов с нечетными индексами обоих массивов и положительных элементов второго массива
10-11 класс|
|
кирилллла
06 янв. 2017 г., 17:42:29 (7 лет назад)
Kostyn0909
06 янв. 2017 г., 19:47:48 (7 лет назад)
const n=5;
var
i,q:integer;
a:array [1..n] of integer;
b:array [1..n] of integer;
c:array [1..50] of integer;
begin
writeln ('Заполните первый массив');
for i:=1 to n do
read (a[i]) ;
writeln ('Заполните второй массив') ;
for i:=1 to n do
read (b[i]);
for i:=1 to n do begin
if i mod 2<>0
then begin q:=q+1;
c[q]:=a[i];
q:=q+1;
c[q]:=b[i];
end;
end;
for i:=1 to n do
if b[i]>0
then begin
q:=q+1;
c[q]:=b[i];
end;
if q=0
then writeln ('условие не выполняется')
else begin
for i:=1 to q do
write (' ',c[i]);
end
end.
P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение.
P.p.s. Программа написана на Pascal ABC.
Ответить
Другие вопросы из категории
Напишите решения по формулам,пожалуйста!! 1.Сообщение занимает 2 страницы и содержит 1/16 килобайта информации. На
каждой странице содержится 256 символов. Какова мощность использованного алфавита?
Читайте также
1.В произвольно заданном одномерном массиве ( случайные значения из отрезка -6 до 11 ) из 6 элементов, определить количество отрицательных, нулевых и
положитльных элементов.
2.
Сформируйте одномерный массив из 5 элементов (значения элементов укажт пользователь с клавиатуры). Обнулите значения всех элементов с нечетными индексами. Выведите значения одномерного массива в строку через пробел.
Пусть дан одномерный числовой массив, составленный из целых чисел. Его можно получить либо вводом с клавиатуры командой Input либо выбором из ячеек
рабочего листа. Количество элементов заранее неизвестно.
Сформировать из элементов заданного массива чисел новый той же размерности по правилу: Xj = Yj + j.
Нужно сделать в Excel VBA
Помогите пожалуйста
1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.
Помогите пожалуйста!!!! Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все элементы с нечетными индексами
на минимальный. Выведите на экран исходный и полученный массивы.
ЗАДАЧА. Составить 2 массива с одинаковым количеством элементов по правилу: 1 массив кратен числу L, второй числу M. при этом L не равно M. Вывести на
экран массивы. Найти разность сумм элементов массива.
Вы находитесь на странице вопроса "заданы 2 одномерных массива. Сформировать третий из элементов с нечетными индексами обоих массивов и положительных элементов второго массива", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.