Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus) - [2170] :: Прикладное программирование

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Chukotka

Full Member

Код:

writeln('vvedite 4islo');
readln(n);

if (n < 1) then
n := 1
else
if (n > Max) then
n := Max;

что касается инициализации при поиске мин\макс:

Код:

Procedure poisk_maximuma(var A:matr);
var f:integer;
s:integer;
begin
    f:=1;

    s := 0; // 0 - если все вводимые числа > 0

    Repeat

Всего записей: 428 | Зарегистр. 01-11-2006 | Отправлено: 21:16 13-01-2008

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC