• дан массив из N целых чисел.Определить количество элементов масива значения которых больше 5

Ответы 1

  • const    handsfree = true;var    a: array[1..100] of real;    i, n: integer;    min, max: real;    k: integer;begin    {ввод массива}    if handsfree then        n := random(20) + 5    else begin        write('n = ');        readln(n);    end;        writeln('Данные массива:');    for i := 1 to n do    begin        if handsfree then begin            a[i] := random(100);            write(a[i], ' ');        end        else readln(a[i]);    end;    writeln();        {подсчет элементов}    k := 0;    for i := 1 to n do        if a[i] > 5 then k := k + 1;    writeln(k);end.
    • Автор:

      buckdfmn
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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