profile
Опубликовано 5 лет назад по предмету Информатика от Artem4564

заполните массив 30 числами сколько чисел находится в интервале от 0 до 6

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.1, сборка 1230 от 27.04.2016
    begin
      var a:=ArrRandom(30,1,30); a.Println;
      Writeln('Кол-во чисел на [1;6]: ',a.Where(x->x in [1..6]).Count)
    end.

    Тестовое решение
    26 2 14 24 25 30 1 19 19 12 13 14 21 7 20 8 26 12 14 1 2 30 23 8 9 19 6 16 16 22
    Кол-во чисел на [1;6]: 5
    1. Ответ
      Ответ дан Artem4564
      если не трудно напишите как задача будет выглядеть с таким условием var a:array [1..30] of integer; или проста как будет выглядеть цикл задачи
    2. Ответ
      Ответ дан Аккаунт удален
      var a:array [1..30] of integer - это не условие, это описатель. В указанной версии он не нужен, как и цикл.
    3. Ответ
      Ответ дан Аккаунт удален
      На будущее: если Вы работаете с какой-то "пещерной" версией Паскаля или на этой же, но Вас учат допотопным приемам программирования, указывайте это в условии задания!
    4. Ответ
      Ответ дан Аккаунт удален
      Потому что за 5 баллов писать по полтора десятка строк программы, когда достаточно двух - это глупость.