Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/14: Рейтинг темы: голосов - 14, средняя оценка - 4.71
1 / 1 / 0
Регистрация: 03.12.2009
Сообщений: 81
1

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

24.03.2010, 20:24. Просмотров 2552. Ответов 1
Метки нет (Все метки)


1. Ввод массива целых чисел.
2. Вывод массива в строку.
3. Найти минимальный элемент. Найти количество элементов имеющих минимальное значение. Удалить все минимальные элементы из массива
4. Конец работы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.03.2010, 20:24
Ответы с готовыми решениями:

Составить программу с использованием базовых алгоритмов для работы с одномерными массивами
Составить программу с использованием базовых алгоритмов для работы с одномерными массивами. При...

Создать модуль, реализующий некоторые действия для работы с одномерными массивами
Напишите код пожалуйста :-* Создайте свой собственный модуль, реализующий некоторые действия для...

Операции с одномерными массивами
Помогите, пожалуйста!!!( В программе используются 4 массива: A, B, C, D. Элементы массивов...

Выполнить заданные действия с одномерными массивами
Контрольная 11 класс!с задачей! ПАСКАЛЬ 2. Найти ошибки в программе, которая удваивает чётные...

__________________
Помогаю в написании студенческих работ здесь.
1
1572 / 643 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
24.03.2010, 21:22 2
Лучший ответ Сообщение было отмечено Дарья Прохорова как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.03.2010, 21:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Помогите, пожалуйста решить задачу с одномерными массивами!
Помогите, пожалуйста, решить задачу! Ввести одномерный массив Y(N) (N&lt;=50) и выдать его на...

Задача с 2-мя одномерными массивами оформленная через процедуру
Вычислить z=(s1+s2)/k1*k2, где s1 и k1 - сумма и количество положительных элементов массива Х(N);...

Стандартные операции с массивами
Можете помочь? Завтра сдавать : 1) Вести массив A(N). Найти среднее геометрическое значение...

Стандартные операции с массивами (матрицами)
-------------------------------------------------------------------------------------------...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.