var n4 := ReadString('a_4 = '); if n4.Length mod 2 = 1 then n4 := '0' + n4;
var n16 := ''; for var i := 0 to n4.Length div 2 - 1 do if Replace4to16.ContainsKey(n4.Substring(2 * i, 2)) then n16 += Replace4to16[n4.Substring(2 * i, 2)] else writeln('Неверные знаки "', n4.Substring(2 * i, 2), '" в числе');
Var x, y: array[1..100] of integer; i, n, k: integer; min, max: integer;
begin {ввод массива} write('n = '); readln(n);
writeln('Данные массива:'); for i := 1 to n do begin readln(x[i]);
end; writeln();
{минимум и максимум} max := x[1]; min := x[1]; for i := 1 to n do begin if max < x[i] then max := x[i]; if min > x[i] then min := x[i]; end; writeln('max = ', max); writeln('min = ', min); writeln('avg = ', (max + min) / 2);
max := (max + min) / 2; k := 0; for i := 1 to n do begin if x[i] >= max then begin k := k + 1; y[k] := x[i]; write(y[k], ' '); end; end; end.
акпарат коздерын жасады: телефон,телевизор,кытап,ноутбук
Объяснение:
акпарат коздеры осы