С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
nikitakm
0 / 0 / 0
Регистрация: 26.09.2015
Сообщений: 11
1

Вывести минимальный элемент массива

10.11.2015, 20:35. Просмотров 1026. Ответов 1

Вывести из массива (N)минимальный элемент среди положительных чисел. С вводом и выводом, а также проверкой на наличие положительных чисел.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2015, 20:35
Ответы с готовыми решениями:

Найти максимальный и минимальный элемент массива и вывести их
Нужно запрограмировать 1) одномерный массив от 1 до 10 заполненный рандомно и...

Найти минимальный элемент массива и вывести его номер
дано х(1..4,1..4) массив найти минимальный элемент и его номер каждых столбца...

Найти минимальный элемент массива до 0 и минимальный элемент массива после нуля
Дан одномерный массив из n чисел. Найти минимальный элемент массива до 0 и...

Поменять местами минимальный элемент первого массива и максимальный элемент второго массива
Нужно создать два массива( например A и D) состоящих из 10 элементов заданных...

Поменять местами минимальный элемент массива и первый элемент массива
Здравствуйте! Помогите решить задачу. Заранее спасибо! Создать массив целых...

1
T-rox
10 / 10 / 12
Регистрация: 13.03.2012
Сообщений: 30
10.11.2015, 21:45 2
Лучший ответ Сообщение было отмечено nikitakm как решение

Решение

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
29
const N=10;
var
a: array[1..N] of integer;
i, min: integer;
p: boolean;
begin
for i:=1 to N do
begin
readln(a[i]);
if a[i] > 0 then
p:=true;
end;
if p then
begin
//не знаем максимально возможного
//найдем его в массиве
min := 0;
for i:=1 to N do
if a[i] > min then
min := a[i];
//найдем минимум
for i:=1 to N do
if (a[i]<min) and (a[i]>0) then
min := a[i];
writeln(min);
end
else
writeln('Положительных чисел нет');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.11.2015, 21:45

Найти минимальный элемент массива и номер его столбца. Вывести сам массив иномер столбца минимального элемента
Найти минимальный элемент массива и номер его столбца. Вывести сам ...

Найти максимальный элемент и минимальный элемент массива и поменять их местами.
2)В массиве М(45) лежат целые числа. Найти максимальный элемент (первый) и...

Найти минимальный элемент одномерного массива и поменять местами пятый элемент с минимальным
Здравствуйте. Очень нужна ваша помощь в решении следующих задач: 3. Найти...


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

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

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