Помогите срочно надо завтра сдать:

+ 0 -

Алишааа

30 янв. 2017 г., 15:28:51 (7 лет назад)

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.

+ 0 -

Yluana8640069

30 янв. 2017 г., 16:37:27 (7 лет назад)

паскаль

+ 0 -

Chad1972

30 янв. 2017 г., 19:02:21 (7 лет назад)

последовательность заполнять вручную или случайными числами?

+ 0 -

Tursundu

30 янв. 2017 г., 21:46:12 (7 лет назад)

в ручную

+ 0 -

Maitanbk

30 янв. 2017 г., 23:00:20 (7 лет назад)

Вывести только кол-во замен?

+ 0 -

Feshen

31 янв. 2017 г., 0:22:36 (7 лет назад)

да