Quote (Morshansk68)
Н =30 элементы массива от 150 до 200 в баскетбольную команду входят все чей рост не менее 180 написать программу которая находит и выводит рост самого низкого участника баскетбольной команды
плллиииз
Program C2;
const N=10;
var A:array [1..n] of integer;
i,min: integer;
begin
For i:=1 to n do Readln (A[i]);
min:=A[1];
For i:=2 to n do
if not (a[i]<180) and(a[i]<min) then min:=A[i];
writeln ('min=',min);
readln
end.
RSS:
