сервис вопросов и ответовСформировать массив из 15 произвольных чисел. Поменять местами элементы, стоящие на нечетных местах, с соответствующими элементами, стоящими на четных м
10-11 класс|
|
естах. Полученный массив вывести на экран.
Нужна прога для Паскаль АВС
Спасибо!
43гошанчик
20 мая 2016 г., 11:55:44 (7 лет назад)
Artimovich2013
20 мая 2016 г., 12:26:56 (7 лет назад)
program prim2;
uses crt;
var i, n, r: integer;
a: array[1.. 10000] of integer;
begin
clrscr;
randomize;
write ('число элементов ');
readln(n);
for i:=1 to n do
begin
{Получаем случайные числа и выводим их на экран.}
a[i]:=random(45)-22;
write(a[i],' ');
end;
{В полученном массиве меняем соседние элементы.}
i:=1;
{Пока I<=N-1.}
while i<=n-1 do
begin
{Меняем значения соседних элементов. }
r:=a[i];a[i]:=a[i+1];a[i+1]:=r;
{Увеличиваем индекс на два.}
inc(i,2);
end;
{Распечатываем измененный массив.}
for i:=1 to n do
write(a[i],' ');
readkey;
end.
Ответить
Другие вопросы из категории
В некоторой стране автомобильный номер длиной 7 символов составляют из заглавных букв (задействовано 23 различных букв) и десятичных цифр в любом пор
ядке. Каждый такой номер в компьютерной программе записывается минимально возможным и одинаковым целым количеством байт (при этом используют посимвольное кодирование и все символы кодируются одинаковым и минимально возможным количеством бит). Определите объем памяти, отводимый этой программой для записи 50 номеров.Желательно подробное решение
Дана матрица 5х5. Найти сумму элементов,лежащих под главной диагональю квадратной матрицей С. Найти вектор, составленный из сумм по столбцам матрицы.
Нужно составить программу в QBasic
для каких марок автомобилей ЛОЖНО высказывание
Заканчивается на согласную в слове 6 букв четвёртая буква гласная
1ауди
2мазда
3мерседес
4ниссан
5субару
6митсубиши
Читайте также
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО. Задача:
Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами.
Pascal ABC
Дана квадратная матрица размера N. Если сумма элементов по главной диагонали больше суммы элементов на побочной диагонали, то заменить элементы стоящие на
четных местах в строке на “ * ”, а элементы стоящие на нечетных местах в строке на ноль.
1)заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку,заменив все четные элементы на число
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
Вы находитесь на странице вопроса "Сформировать массив из 15 произвольных чисел. Поменять местами элементы, стоящие на нечетных местах, с соответствующими элементами, стоящими на четных м", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.