1.дана последовательность действительных чисел a1, a2, …, an. замените все ее члены, большие данного z, этим числом. подсчитать количество замен. c++

var

  a: array[1..1000] of real;

  i, k, n, z: integer;

begin

  writeln('введите число n: ');

  readln(n);

  writeln('введите число z: ');

  readln(z);

  writeln('введите ',n,' действительных чисел (каждое с новой строки): ');

  for i : = 1 to n do

  begin

    readln(a[i]);

    if a[i] > z then

    begin

      a[i] : = z;

      k : = k + 1;

    end;

  end;

  writeln('количество замен: ', k);

end.

Char shortint или byte smallint или word smallint или word single string single или real на практике все это в настоящее время - анахронизм. для целочисленных значений обычно используют integer, для вещественных - real. это позволяет во-первых, не загружать голову проблемой, что в какой-то момент результат операции не поместится в отведенные рамки, во-вторых, позволяет компилятору получать более быстрый код (данные не надо преобразовывать к какому-то типу для вычисления, а потом назад). если вычисляется (byte)*(smallint)+(integer) div (shortint), какого типа данные нужно выбирать компилятору для промежуточных значений и результата? а вот если все данные одного типа integer, то и думать не о чем.

1) замечание: не понятно какое число надо делить на 3. в программе на 3 делится первый элемент из каждой пары. const n=12; var a: array[1..n] of integer; i: integer; begin for i: =1 to n div 2 do   begin   a[2*i-1]: =2*i;   a[2*i]: =a[2*i-1] div 3;   end; for i: =1 to n do write(a[i],' '); writeln; end. результат: 2 0 4 1 6 2 8 2 10 3 12 4 2) const n=12; var b: array[1..n] of integer; i: integer; begin for i: =1 to n do   begin   b[i]: =random(71)-10;   write(b[i]: 4);   end; writeln; for i: =1 to n do   begin   b[i]: =b[i]-i;   write(b[i]: 4);   end; writeln; end. пример: 17 54 4 -7 31 33 -6 27 14 59 0 43 16 52 1 -11 26 27 -13 19 5 49 -11 31