var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"
begin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;
Значки и ярлыки объектов виндоус окна открытых приложений панель задач содержащию кнопку пуск панель индикации и ряд панелей инструментов рабочего стола фановый рисунок или активные элементы рабочего стола