сервис вопросов и ответовДан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 и число х из этого же диапазона. Длина массива равна N. Вставить число х
10-11 класс|
|
после первого элемента кратного пяти
Antonidaklimentonay
30 марта 2017 г., 0:41:41 (7 лет назад)
Ser12831063
30 марта 2017 г., 1:55:49 (7 лет назад)
const nmax=20;
var a: array [1..nmax+1] of byte;
n, j, i: byte;
x: integer;
begin
repeat
write('Количество элементов, не более ', nmax, ', n=');
readln(n);
until n in [1..nmax];
for i:=1 to n do a[i]:=random(21);
writeln('Исходный массив');
for i:=1 to n do write(a[i]:4);
writeln;
i := 1;
while (a[i] mod 5<>0) and (i<n) do inc(i);
if (i<n) or ((i=n) and (a[i] mod 5=0)) then
begin
write('x=');
readln(x);
for j:=n downto i+1 do a[j+1]:=a[j];
a[i+1]:=x;
inc(n);
end
else
writeln('Нет элемента с заданными свойствами');
writeln('Преобразованный массив');
for i:=1 to n do write(a[i]:4);
writeln;
readln;
end.
Alica1
30 марта 2017 г., 4:22:06 (7 лет назад)
Программу полностью написать?
Ответить
Другие вопросы из категории
Какие встроенные группы содержит папка группы после установки Windows 2000?
1) Опытные пользователи, администраторы, гости, операторы архива
2) Все перечисленные
3) гости, репликатор, администраторы
4) администраторы, гости, пользователи
Читайте также
Дана строка , в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются В заданном формате дд- целое число из диапазона от 1 до
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Объявлен набор в шк.команду. Известен рост каждого из N учеников,желающих попасть в эту команду. Подсчитайте количество претендентов,имеющих шанс
попасть в команду,если рост игрока команды должен быть не менее 170см. Считайте рост претендента в команду случайным числом из диапазона от 150 до 300 см, число претендентов n=50.
№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10
числа n.
№3
Вычислить значение факториала n!
№4
В диапазоне от 1 до n вывести все четные числа на экран.
№5
Найти количество чисел, которые делятся на 3 и 5, из диапазона от 1 до n.
Вы находитесь на странице вопроса "Дан массив натуральных чисел заданных случайным образом из диапазона от 0 до 20 и число х из этого же диапазона. Длина массива равна N. Вставить число х", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.