Задать вопрос Регистрация
Помочь другим

  • Помогите срочно надо завтра сдать:
    1.Дана последовательность
    действительных чисел a1,
    a2,…,an
    ,
    Замените все ее члены, большие данного Z, этим числом. Подсчитать количество замен.

Ответы 1

  • 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.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years