Водномерном массиве поменять местами минимальный и максимальный элементы. все элементы большие 4 заменить числом 4. посчитать количество таких элементов.

Const n=10; var  a : array [1..10] of integer; i, mini,   maxi,   min,max, c,k: integer; begin for i : = 1 to n do begin a[i] : = random(10); write(' ',a[i]); end; maxi: =1; mini: =1; for i: =1 to n do   begin min: =a[1]; if a[i]> max then   begin max: =a[i]; maxi: =i; end; if a[i]< min  then   begin min: =a[i]; mini: =i; end; c: =a[maxi]; a[maxi]: =a[mini]; a[mini]: =c; end; writeln; for i: =1 to n do begin write(' ',a[i]); end; writeln; for i: =1 to n do begin if a[i]> 4 then begin a[i]: =4; inc(k); end; write(' ',a[i]); end; writeln; write('количество: ',k); end.

Представим число 108.5 в нормализованном экспоненциальном виде: 1.085*102 = 1.085*exp102 число 1.085*exp102 состоит из двух частей: мантиссы m=1.085 и экспоненты exp10=2 если мантисса находится в диапазоне 1 ≤ m < 10, то число считается нормализованным. представим число 24.625 в нормализованном экспоненциальном виде: 2.4625*101 = 2.4625*exp101 число 2.4625*exp101 состоит из двух частей: мантиссы m=2.4625 и экспоненты exp10=1 если мантисса находится в диапазоне 1 ≤ m < 10, то число считается нормализованным. представим число 12.125 в нормализованном экспоненциальном виде: 1.2125*101 = 1.2125*exp101 число 1.2125*exp101 состоит из двух частей: мантиссы m=1.2125 и экспоненты exp10=1 если мантисса находится в диапазоне 1 ≤ m < 10, то число считается нормализованным. представим число -86.25 в нормализованном экспоненциальном виде: -8.625*101 = -8.625*exp101 число -8.625*exp101 состоит из двух частей: мантиссы m=-8.625 и экспоненты exp10=1 если мантисса находится в диапазоне 1 ≤ m < 10, то число считается нормализованным. код числа бывает прямой, обратный и дополнительный.

Program triples; const rand_f = 1; rand_t = 20; var b: array[1..15] of integer; t: array[1..3] of integer; i, j, max, max_i, tmp: integer; begin randomize; for i : = 1 to 15 do b[i] : = random(rand_t) + rand_f; i : = 1; while i < 15 do begin t[1] : = b[i]; t[2] : = b[i+1]; t[3] : = b[i+2]; max : = t[1]; for j : = 2 to 3 do if t[j] > max then begin max : = t[j]; max_i : = j; end; tmp : = t[3]; t[3] : = max; t[max_i] : = tmp; if t[2] < t[1] then begin tmp : = t[2]; t[2] : = t[1]; t[1] : = tmp; end; write('числа ', i, '-', i + 2, ': '); writeln(t[1], ' ', t[2], ' ', t[3]); i : = i + 3; end; end.