сервис вопросов и ответовДан массив x целых чисел. Исключить из него все числа, встречающиеся более двух раз(если такие имеются). Затем числа, стоящие на четных местах,
10-11 класс|
|
упорядочить по невозрастаниюПрограмма необходима на языке Pascal
Angelinka150802
24 марта 2015 г., 21:13:59 (9 лет назад)
Nick37
24 марта 2015 г., 22:18:20 (9 лет назад)
uses crt;
const nmax=100;
var x:array[1..nmax] of integer;
n,m,i,j,k,a,p:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(10);
write(x[i]:4);
end;
writeln;
i:=1;
m:=n;
while i<n-1 do
begin
k:=1;
a:=x[i];
for j:=n downto i+1 do
if x[j]=a then k:=k+1;
if k>2 then
begin
j:=i;
while j<=n do
if x[j]=a then
begin
if j=n then n:=n-1
else
begin
for p:=j to n-1 do
x[p]:=x[p+1];
n:=n-1;
end;
end
else j:=j+1;
end
else i:=i+1;
end;
if n=0 then
begin
exit
end;
if n=m then
write('Все элементы встречены не более 2 раз и не удалены')
else
begin
for i:=1 to n do
write(x[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if(i mod 2=0)and(j mod 2=0) and(x[i]<x[j]) then
begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
for i:=1 to n do
write(x[i]:4);
end;
Ответить
Другие вопросы из категории
Дан
массив целых чисел, в котором есть нулевые элементы. Создать массив из номеров
этих элементов.
Для кодирования
некоторой последовательности, состоящей
из букв А, Б, В, Г и Д, используется
неравномерный двоичный код, позволяющий
однозначно декодировать полученную
двоичную последовательность. Вот этот
код: А–11, Б–10, В–011, Г–000, Д–001. Можно
ли сократить для одной из букв длину
кодового слова так, чтобы код по-прежнему
можно было декодировать однозначно?
Коды остальных букв меняться не должны.
Выберите правильный вариант ответа. 1) для буквы Г – 00 2) это невозможно
3) для буквы В – 01 4) для буквы Б – 1
Читайте также
ЗАДАЧА В ПАСКАЛЕ дана непустая последовательность целых чисел оканчивающаяся нулем.найти: а) наибольшее число б) разность
максимального и минимального
в) максимальный элемент из стоящих на четных местах
г) сумму положительных и среднее арифметическое отрицательных
д) второй максимум
е) длину наибольшего фрагмента, состоящего из одинаковых элементов.
ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО ЗА РЕШЕНИЕ ХОТЯ БЫ ОДНОЙ ИЗ ЗАДАЧЕК...))))))
Дан одномерный массив целых чисел, заполненный
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
Дан массив целых чисел из n
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [ -20, 50 ].
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью
генератора случайных чисел. если можно с блок-схемой
Вы находитесь на странице вопроса "Дан массив x целых чисел. Исключить из него все числа, встречающиеся более двух раз(если такие имеются). Затем числа, стоящие на четных местах,", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.