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

Дана последовательность целых чисел a1, a2,.,an. Найти наименьший среди положительных элементов

06.11.2015, 14:25. Просмотров 1195. Ответов 3
Метки нет (Все метки)

Дана последовательность целых чисел a1, a2,...,an. Найти наименьший среди положительных элементов. Ребят помогите, заранее спасибо!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.11.2015, 14:25
Ответы с готовыми решениями:

Дана последовательность целых чисел a1, a2,.,an. Найти наибольший среди элементов, стоящих на четных местах
Нужна срочная помощь) Дана последовательность целых чисел a1, a2,...,an. Найти...

Дана таблица M[1..40] целых чисел.Найти максимальный среди отрицательных элементов
В общем знакомый попросил помочь решить задачку,а я уже многое забыл.Кому не...

Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности
Помогите решить задачу с использованием ключевых слов как "repeat" и "until". ...

Дана последовательность из n целых чисел. Определите, со скольких положительных чисел она начинается.
Дана последовательность из n целых чисел. Определите, со скольких положительных...

Дана последовательность 10 целых чисел. Напишите программу, вычисляющую сумму положительных чисел.
Дана последовательность 10 целых чисел. Напишите программу, вычисляющую сумму...

3
Puporev
Модератор
55504 / 42593 / 29443
Регистрация: 18.05.2008
Сообщений: 100,754
06.11.2015, 15:07 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var n,i,a,mn:integer;
begin
clrscr;
write('Количество чисел n=');
readln(n);
writeln('Введите ',n,' целых чисел');
mn:=0;
for i:=1 to n do
 begin
  readln(a);
  if a>0 then
  if mn=0 then mn:=a
  else if a<mn then mn:=a;
 end;
if mn=0 then write('Положительных чисел нет')
else write('Минимальное положительное=',mn);
readln
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4162 / 2753 / 2178
Регистрация: 22.11.2013
Сообщений: 7,685
08.11.2015, 10:03 3
Условия можно объединить в одно выражение
Pascal
12
if (a>0) and ((mn=0) or (a<mn)) then mn:=a;
Можно сделать на одно условие короче:
Pascal
8
9
10
mn:=MaxInt;
...
if (a>0) and (a<mn) then mn:=a;
0
Dzzenip0ol
0 / 0 / 0
Регистрация: 06.11.2015
Сообщений: 19
09.11.2015, 19:32  [ТС] 4
спасибо большое
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.11.2015, 19:32

Дана непустая последовательность положительных целых чисел av а2, ..., оканчивающаяся нулем.
30. Дана непустая последовательность положительных целых чисел av а2, ...,...

Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максималь
Найти количество положительных чисел среди четырёх целых чисел. Если количество...

Из N целых чисел найти минимальное среди положительных и максимальное среди отрицательных значений
Из N целых чисел найти минимальное среди положительных и максимальное среди...


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

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

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