var a: array [1..100] of real; i,j,n: integer; t: real; begin n: =3; for i : = 1 to n do read(a[i]); for i: =1 to n-1 do for j: =i+1 to n do if a[i]< a[j] then begin t: =a[i]; a[i]: =a[j]; a[j]: =t; end; for i: = 1 to n do write(a[i],'' ); end.
универсальный метод через массивы. сейчас работает для трех элементов
var a,b,i,n: integer; begin read(a,b); for i: = a to b do if i mod (3*4) = 0 then n: =n+1; writeln(n); end.var n,i: integer; begin for i: = 1 to 99 do begin if (i div 10 < > 0) and ((i div 10 = n) or (i mod 10 = n)) then write(i,' '); end; end.
Поделитесь своими знаниями, ответьте на вопрос:
1)информационным процессом является: а) процесс строительства зданий и сооружений; б) процесс расследования преступлений; в) процесс производства электроэнергии; г) процесс извлечения полезных ископаемых. 2)как называется преднамеренная порча или уничтожение информации, а также информационного оборудования со стороны лиц не имеющих на это права? а) утечка информации; б)несанкционированное воздействие; в)непреднамеренное воздействие. 3)слово тйщпё получено с шифра виженера с ключевым словом ваза. восстановите исходное слово.