Вопрос по информатике:
ПОЖАЛУЙСТА ПОМОГИТЕ
Дан целочисленный массив из 30 элементов, все элементы которого – неотрицательные числа, не превосходящие 10000. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
const N=30;
var a: array [1..N] of integer;
i, j, min: integer;
begin
for i:=1 to N do
readln(a[i]);
...
end.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
- 27.05.2018 17:33
- Информатика
- remove_red_eye 14288
- thumb_up 20
Ответы и объяснения 1
var a, b, c, n, i :integer;
s: array [1..30] of integer;
begin
for i:=1 to 30 do
read (s[i]);
for i:=1 to 30 do
if s[i] div 1000 = 0 then a:=s[i];
if a=0 then write ('No') else
for i:=1 to 30 do
if (s[i] div 1000 = 0) and (a>s[i]) then a:=s[i];
write (a);
end.
- 28.05.2018 04:40
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.