Andromadi
7 год назад
Составить программу на языке програмирования паскаль
В группе 7 человек
рост вводится с клавы
программма выводит на экран самого ниского
ОТВЕТЫ
Феодорович
Jul 12, 2019
Обычная задачка на минимум
сonst n=7; var i:byte; c:array[1..n] of real; min:real; begin for q:=1 to n do read(c[q]); min:=c[q]; for q:=2 to n do if mingt;c[q] then min:=c[q]; write(min); end..
сonst n=7; var i:byte; c:array[1..n] of real; min:real; begin for q:=1 to n do read(c[q]); min:=c[q]; for q:=2 to n do if mingt;c[q] then min:=c[q]; write(min); end..
223
Смежные вопросы:
