Запись оставлена Гость 19.01.2017 в 02:22
запустить | скачать | новая запись
- program laba;
- var
- N,Num, i, min: Integer;
- begin
- readln(N);
- min :=5;
- for i :=1 to N do
- begin
- read(Num);
- if (num <5) and (num > -10) then
- if num < min then min := num
- else ;
- else writeln('This number is out of range' );
- end;
- writeln('minimal is ' , min);
- readln;
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.