Ответы на вопрос:
Разработка завершена осенью 1952г. сергей алексеевич лебедев. (бэсм) первый этап (с середины 50-х до начала 60-х годов хх века) харви натансон.(мэмс)
Program p1; var a,b: integer; i,n,x: integer; begin writeln ('введите к-во'); readln (n); x: =0; for i: =1 to n do begin writeln ('введите число: '); readln (a); if a> =0 then begin if x=0 then b: =a; if (x> 0) and (a< b) then b: =a; x: =x+1; end; end; writeln('наименьшего положительного число: ',b); end.
Популярно: Информатика
-
shwabmitia21.03.2022 22:54
-
аолесдвда16.08.2020 23:04
-
Артем83428.02.2023 13:07
-
Rina66623.06.2020 10:11
-
помогите232322.04.2023 22:40
-
mightwood133714.06.2023 11:04
-
нази1705.01.2021 02:24
-
flamerplay12322.04.2020 09:42
-
38066836868927.02.2020 19:45
-
АлексейРИ01.09.2020 21:58