Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

дан массив целых чисел (n=10), заполненный случайными числами из промежутка [-40,30]. 1. удалить из него все элементы, которые состоят из одинаковых

10-11 класс

цифр(включая однозначные числа). 2. вставить число k перед всеми элементами, в которых есть цифра 1(k вводить с клавиатуры). 3. переставить первые три и последние три элемента местами, сохраняя их следование.

Evelina2003 06 янв. 2015 г., 11:11:24 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
KingTricks
06 янв. 2015 г., 12:24:42 (9 лет назад)

1)

var
a: array[1..20] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('удалили элементы из одинаковых цифр включая однозначные');
i := 1;
k := 10;
while i <= k do
begin
if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then
begin
if i = k then k := k - 1
else
begin
for j := i to k - 1 do a[j] := a[j + 1];
k := k - 1;
end;
end
else
i := i + 1;
end;
for i := 1 to k do
write(a[i]:4);
end.

2)

var
a: array[1..20] of integer;
i, j, k,n: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('введите k(не должно содержать 1)=');
readln(k);
writeln('вставляем k перед всеми элементами где есть цифра 1');
i := 1;
n := 10;
while i <= n do
begin
if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then
begin
for j:=n+1 downto i+1 do a[j]:=a[j-1];
a[i]:=k;
n:=n+1;
i:=i+1;
end;
i := i + 1;
end;
for i := 1 to n do
write(a[i]:4);
end.

3)

var
a: array[1..10] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('меняем местами три первых и три последних элемента');
for i:=1 to 3 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
for i := 1 to 10 do
write(a[i]:4);
end.

 

Ответить

Другие вопросы из категории

текстовый документ,состоящий из 5120 символов,хранится в 8-битной кадировке КОИ-8. этот документ был преобразован в 32-битную кодировку. укажите,какое

дополнительное количество Кбайт потребуется для хоанения документа . в ответе запишите только число

экспертная система -это?
чему равен морской узел

Читайте также

Дан одномерный массив целых чисел, заполненный

случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.

Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать

только элементы кратные 2

3)Найти сумму первых пяти элементов

Составить программу Дан массив целых чисел , размерность -12

1) Заполнение массива производить случайными числами из диапозона [-10;35]

2)Вывести на печать только положительные элементы

3)Найти количество отрицательных элементов

Составить программу

Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .

Дан массив целых чисел из n

элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)

1. Пользователем вводится целое число. Вывести на экран последовательность целых чисел от единицы до этого числа.

2.Вывести на экран 10 строк, содержащие символ *, причем количество * в каждой строке должно быть равно номеру строки.
3.Пользователем вводится 2 целых числа. Вывести на экран сумму положительных четных чисел, находящихся в границах диапазона, указанного пользователем.
4. В результате работы программы формируется массив, состоящий из 10 элементов и заполненный случайными числами от 0 до 100. Вывести на экран этот же массив в порядке возрастания.
5.Вводится строка, содержащая буквы и цифры разного регистра (т.е. строчные и прописные буквы). В результате работы программы на экран выводится строка следующего вида: цифры в порядке возрастания, строчные буквы по алфавиту, прописные буквы по алфавиту.

Дан

массив целых чисел (n=15),
заполненный случайным образом числами из промежутка [-20,50].



Вы находитесь на странице вопроса "дан массив целых чисел (n=10), заполненный случайными числами из промежутка [-40,30]. 1. удалить из него все элементы, которые состоят из одинаковых", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.