Удалить из массива минимальный элемент

Удалить из массива минимальный элемент

Задача

Допустим, имеется одномерный массив, содержащий числа от 0 до 49 включительно. Требуется исключить из него все элементы, значения которых меньше 15.

Похожие задачи

Решение

Присваивание значение n переменной m требуется, т.к. n — константа и не может быть изменена. Поскольку при "просмотре" массива в цикле while некоторые элементы будут удаляться, то значение m, обозначающее длину массива, будет уменьшаться.

Если очередной элемент не удаляется, то переходим к просмотру следующего элемента (i := i + 1) и не уменьшаем массив (m не меняется).

Исходник программы, которая удаляет определённый элемент из массива и выводит исходный массив и массив после удаление элемента. Пояснительных комментариев нет. Открывается с помощью Pascal ABC, Pascal ABC.NET. Скачать исходник и увидеть исходный код программы Вы можете ниже.

Исходный код программы удаления эл-та из массива:

Кто первый и правильно ответит — ГАРАНТИРУЮ Лучший ответ!

Тема: "ВСТАВКИ И УДАЛЕНИЯ ЭЛЕМЕНТОВ В ОДНОМЕРНЫХ МАССИВАХ"

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

Задача: Дан массив, состоящий из N целых чисел. Удалить из массива все максимальные и минимальные элементы.

program num;
Var a, b:array [1..100] of integer;
j, max, min, k, N :integer;
begin
writeln(‘Введите размерность массива: ‘);
readln(N);
writeln(‘Исходный массив: ‘);
for j:=1 to N do
begin
a[j]:=Random(10)+1;
write(a [ j ], ‘ ‘);
end;
writeln;

max:=a[1];
for j:=2 to N do
if a [ j ]> max then max:=a [ j ];
writeln(‘Максимальный элемент = ‘, max);
min:=a[1];
for j:=2 to n do
if a[ j ] Остальные ответы

Читайте также:  Как переустановить скайп без потери контактов
Ссылка на основную публикацию
Тест эксель на собеседовании
Если вы хоть раз пытались устроиться на работу или же работаете на должности, в круг обязанностей которой входит принятие людей...
Тарифы мтс смарт 400 руб
С того момента как тариф «Смарт» стал доступен для активации, он претерпел множество изменений. Они касаются размера абонентской платы, количества...
Тарифы ростелекома на домашний интернет
Полный список актуальных тарифов Ростелеком для города Москва. Подключай тарифы Rostelecom в Москве бесплатно и пользуйся качественными услугами интернета и...
Тестирование cd и dvd дисков
В этой статье я опишу программу тест Nero CD DVD Speed, которая разработана компанией "Nero Softwsre AG". С помощью программы...
Adblock detector