Заполните пропуски, описав первые два этапа создания проэкта?

197

253

Посмотреть ответы 2

Ответы на вопрос:

NastyaMeow05

Информатика

4,8(33 оценок)

Вы такие ненориаргш лучше завели себе кота

boykorostik

Информатика

4,8(16 оценок)

1) var a: array [1..30] of integer; i,min: integer; begin min: =maxint; for i: =1 to 30 do read(a[i]); for i: 1 to 30 do if a[i]< min then min: =a[i]; writeln(min) end. 2) var a: array [1..30] of integer; i,k: integer; begin min: =maxint; for i: =1 to 30 do read(a[i]); for i: =1 to 30 do if (a[i] mod 10< =9) and (a[i] div 10< =9) then inc(k); writeln(k) end. 3) var a: array [1..30] of integer; i,s: integer; begin min: =maxint; for i: =1 to 30 do read(a[i]); for i: =1 to 30 do if a[i] mod 10=0 then s: =s+a[i]; writeln(s) end.