Максимальное число последовательности положительных чисел

Категория: Delphi/Pascal
2011-10-02 22:10:01

Написать программу которая определяет максимальное число из введеной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена) для завершения ввода последовательности ввести ноль.

code: #pascal
program zad2;
 uses crt;
 var
 i:integer;
 ch,max_ch:real;
begin
 clrscr;
 i:=1;
 writeln('VVEDITE ELLEMENT POSLEDOVATELYNOSTY #',i,' (0 DLYA OKONCHANIYA VVODA)');
 readln(ch);
 max_ch:=ch;
 while ch<>0 do begin
  i:=i+1;
  writeln('VVEDITE ELLEMENT POSLEDOVATELYNOSTY #',i,' (0 DLYA OKONCHANIYA VVODA)');
  readln(ch);
  if max_ch<ch then max_ch:=ch;
 end;
 writeln('MAKSIMALNIY ELLEMENT POSLEDOVATELYNOSTY=',max_ch:1:4);
 readkey;
end.
 

автор: Tayfun

Поделиться:

Похожие статьи:

теги: студенты, консольное приложение, максимальное