Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.05.2013, 00:02   #1
Calibri
Новичок
Джуниор
 
Регистрация: 28.05.2013
Сообщений: 1
По умолчанию Две задачи

Нужно исправить программу, чтобы при выполнении с клавиатуры вводилось натуральное число, не превышающее 10^9, и выводилась минимальная цифра этого числа.
Цитата:
var N: longint;
digit, min_digit: integer;
begin
readln(N);
min_digit := 0;
while N > 0 do
begin
digit := N mod 10;
if digit > min_digit then
min_digit := digit;
N := N div 10
end;
writeln(min_digit);
end.
и что эта программа выводит, если ввести число 461.

_______________
Дан целочисленный массив из 20 элементов. Элементы массива могут
принимать целые значения от 0 до I0000 включительно. Надо, чтобы программа нашла и вывела максимальное значение среди трёхзначных
элементов массива, делящихся на 4. Если в исходном массиве нет
трёхзначного элемента, кратного 4, то вывести сообщение «Не найдено».
Исходные данные:

Цитата:
const
N = 20;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i := 1 to N do
writeln(a[i]);
.......
end.

Заранее спасибо!
Calibri вне форума Ответить с цитированием
Старый 30.05.2013, 11:46   #2
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

1
Код:
min_digit := 9;

{......}
if digit < min_digit 
{.....}
2
Код:
{....}
mx:=96;
for i:=1 to n do
if (a[i]>99) and (a[i]<999) and (a[i] mod 4 =0) and (a[i]>mx) then mx:=a[i];
if mx<100 then writeln('Нету')
else writeln(mx);
end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 30.05.2013 в 11:49.
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Решается судьба.. Надо решить две задачи.Мне задачи, вам практика и мое уважение) romichj Общие вопросы C/C++ 3 30.03.2012 00:33
две задачи turok2012 Фриланс 7 15.01.2012 13:49
Две задачи на с++ likos18 Помощь студентам 0 15.12.2011 23:30
Две задачи vihlyaev SQL, базы данных 3 02.06.2011 20:38
Две Задачи Алена Захарова Помощь студентам 13 13.08.2009 17:03