Как получить справочную информацию о командк topoint скажите

139

140

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

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

Crispino

Информатика

4,4(38 оценок)

Const n=20; var a: array [1..n] of integer; i,s,k,v,j: integer; begin for i: =1 to n do readln (a[i]); writeln (a); for i: =1 to n do if (a[i] div 100 = 0) and (a[i] div 10 < > 0) then begin k: =k+1; if k=1 then s: =s+a[i]; if k=3 then s: =s+a[i] end; writeln (s); for i: =1 to n do begin for j: =1 to n-1 do if a[j]< a[j+1] then begin v: =a[j]; a[j]: =a[j+1]; a[j+1]: =v end end; writeln (a) end.