Стандартные алгоритмы работы с одномерными массивами

@Дарья Прохорова · Регистрация: 03.12.2009

1. Ввод массива целых чисел.
2. Вывод массива в строку.
3. Найти минимальный элемент. Найти количество элементов имеющих минимальное значение. Удалить все минимальные элементы из массива
4. Конец работы.

@Vladiator · 24.03.2010, 21:22

Pascal

const n=10;
var
 a:array[1..n]of integer;
 i,min,r,j:integer;
begin
 writeln('Ввод массива (',n, 'элементов)');
 for i:=1 to n do begin
  readln(a[i]);
  if (i=1) or (a[i]<min) then begin
   min:=a[i];
   inc(r);
  end;
 end;
 for i:=1 to n do write(a[i],' ');
 writeln;
 writeln('Минимальный элемент - ',min,'. Их кол-во - ',r,'. Массив без этих значений: ');
 for i:=1 to n do  if a[i]=min then begin
  for j:=i to n-i do a[j]:=a[j+1];
  dec(i);
 end;
 for i:=1 to n-r do write(a[i],' ');
 readln;
end.

@Дарья Прохорова 1 / 1 / 0 Регистрация: 03.12.2009 Сообщений: 81
		1
	Стандартные алгоритмы работы с одномерными массивами 24.03.2010, 20:24. Просмотров 2552. Ответов 1 Метки нет (Все метки) 1. Ввод массива целых чисел. 2. Вывод массива в строку. 3. Найти минимальный элемент. Найти количество элементов имеющих минимальное значение. Удалить все минимальные элементы из массива 4. Конец работы. 0

Опции темы

Стандартные алгоритмы работы с одномерными массивами

Решение