Удаление элементов одномерного массива, больших последнего элемента этого массива

@ia-12 · Регистрация: 04.12.2014

Студворк — интернет-сервис помощи студентам

составьте программу удаления элементов одномерного массива A(N) больших последнего элемента этого массива

@Puporev · 06.04.2015, 15:27

По паскалевски так, может кто напишет по NETовски

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var a:array of integer;
    n,i,j:integer;
begin
randomize;    
write('Размер массива n=');
readln(n);
setlength(a,n);
writeln('Исходный массив');
for i:=0 to n-1 do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
i:=0;
while i<n do
if a[i]>a[n-1] then
 begin
  for j:=i to n-2 do
  a[j]:=a[j+1];
  n:=n-1;
  setlength(a,n);
 end
else inc(i); 
writeln('Удаление элементов, больших ',a[n-1]);
for i:=0 to n-1 do
write(a[i]:4)
end.

@volvo · 06.04.2015, 16:01

Запросто:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{$reference System.Core.dll}
uses
  System, System.Linq, Arrays;
  
var 
  a : array of integer;
  n : integer;
  rnd : Random := new Random;
begin
  write('n = '); readln(n);
  a := Enumerable.Range(1, n).Select((i : integer) -> rnd.Next(100)).ToArray();
  writeln('Исходный массив: '); a.Writeln(' ');
  
  a := a.Where((i : integer) -> i <= a.Last()).ToArray();
  writeln('Преобразованный массив: '); a.Writeln(' ');
end.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@ia-12 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 16

	Удаление элементов одномерного массива, больших последнего элемента этого массива 06.04.2015, 15:15. Показов 3030. Ответов 2 Метки нет (Все метки) составьте программу удаления элементов одномерного массива A(N) больших последнего элемента этого массива 0

Удаление элементов одномерного массива, больших последнего элемента этого массива

Решение