ПЛИИЗЗЗ СРОЧНОО Дан массив D(n). Удалите из массива все элементы, равные минимальному. Выведите на экран исходный и полученный массивы.
10-11 класс
|
const n=5;
var
i,x,q:integer;
d:array [1..n] of integer;
begin
writeln ('Заполните массив);
for i:=1 to n do
read (d[i]);
x:=d[1];
for i:=2 to n do
if x>d[i]
then x:=d[i];
writeln ('Минимальный элемент :',x);
for i:=1 to n do
write (' ',d[i]);
writeln;
for i:=1 to n do
if d[i]<>x
then begin
q:=q+1;
d[q]:=d[i];
end;
for i:=1 to q do
write (' ',d[i]);
end.
Должно быть так.
P.s. Программа написана на языке Pascal ABC.
Другие вопросы из категории
2) Заполните двумерный массив 4х5 случайными вещественными числами из диапазона [–1; 1]. Выведите его на экран. Подсчитайте общее количество неотрицательных элементов массиве.
3) Заполните двумерный массив 3х4 целыми числами с клавиатуры. Выведите его на экран. Найдите сумму элементов каждой строки.
Читайте также
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел
элементов, заполненный случайным образом числами из промежутка [-10,60]. Удалить из него все элементы, в
которых последняя цифра нечетная, а само число кратно 3.
Помогите пожалуйста решить в C# (Си шарп)
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы