Написать программу которая сортирует массив по убыванию и ищет в нем элемент равный x

Содержание

Новые вопросы по информатике

Написать программу, которая выводит на экран результаты следующих действий: 27-5= 11+21= 32/2= 2+2*2= (2+2) * 2= Написать программу, которая выводит на экран результаты следующих действий: 21-4= 21+11= 43/3= 3+3*3= (3+3) * 3=

Вариант 2 1. Даны три числа. Найдите сумму второго и третьего числа. Найдите квадрат первого числа. 2. Даны длины сторон прямоугольника. Найдите площадь прямоугольника. 3. Даны длины катетов прямоугольного треугольника.

Найдите периметр треугольника.

Почему при А=1, В=1, С=1 ответ АVВ равно 1?

2. Какое значение будет иметь переменная b после выполнения следующих операторов присваивания: a:=3; b:=a+9; b:=a+b; b:=a-b+b/a. 3.

Найдите наиболее точное общее имя каждой группе объектов: з) клавиатура, сканер, мышь

Главная » Информатика » Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения, равные введенному числу. PascalABC

Источник: iotvet.com

Самоучитель C++ (22 серия) Visual Studio, Итоги №3, Сортировка массивов и матриц

Напишите программу, которая сортирует массив по убыванию и ищет в нем все значения, равные введе…

Const n=20;
var
a:array[1..n] of integer;
i,j,t,x,i1,i2:integer;
begin
Randomize;
Writeln(‘Исходный массив:’);
for i:=1 to n do begin
a[i]:=Random(21);
Write(a[i],’ ‘)
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j] begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t end;
Writeln(‘Отсортированный массив:’);
for i:=1 to n do Write(a[i],’ ‘);
Writeln;
write(‘x = ‘); readln(x);
i1:=1; i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]>x then i1:=(i1+i2) div 2+1;
if a[i] until (a[i]=x)or(i1>i2);
if a[i]=x then
begin
writeln(‘Искомый(ые) номер(а) элемента(ов):’);
while (i>0)and(a[i]=x) do i:=i-1;
i:=i+1;
while (i <=n)and(a[i]=x) do begin write(i,’ ‘); i:=i+1; end;
end
else writeln(‘Элемент не найден’);
writeln;
end.

Школе NET

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Онтонио Веселко