profile
Размещено 5 лет назад по предмету Информатика от 12byster1337

Дан массив из 30 целых чисел (заполнить случайными числами). Вывести массив на экран. Подсчитать сколько элементов больше максимального. Паскаль

  1. Ответ на вопрос
    Ответ на вопрос дан supersuperkirip54irs

    var a:array [1..30] of integer;

    k,i:integer;

    BEGIN

    k:=0;

    for i:=1 to 30 do begin

    a[i]:=Random(50)+1;

    write(a[i],' ');

    if a[i]>30 then k:=k+1;

    end;

    writeln();

    writeln(k);

    end.

    1. Ответ на вопрос
      Ответ на вопрос дан 12byster1337
      спасибо
  2. Ответ на вопрос
    Ответ на вопрос дан MrMiner1

    Program n_1;

    var a: array [1..30] of integer; i, n: integer;

    begin

       randomize;

       n:=0;

       for i:=1 to 30 do begin a[i]:=random(10000); write(a[i], ' '); end;

       writeln;

       for i:=1 to 30 do if a[i]>a[30] then n:=n+1;

       writeln(n);

    end.

    Ну диапазон если что сами можете подредактировать :D

    1. Ответ на вопрос
      Ответ на вопрос дан MrMiner1
      просто переносит вывод на следующую строчку
    2. Ответ на вопрос
      Ответ на вопрос дан MrMiner1
      и какие там неизвестные символы...
    3. Ответ на вопрос
      Ответ на вопрос дан 12byster1337
      все равно спасибо)
    4. Ответ на вопрос
      Ответ на вопрос дан MrMiner1
      Ну не знаю... можно с этой строчкой поиграться: заново вручную переписать, к writeln скобочки добавить. Для справки: данная ошибка означает, что компилятор просто нашел неизвестный для него символ. Может быть где-то символ из кириллицы закрался.
    5. Ответ на вопрос
      Ответ на вопрос дан MrMiner1
      Ну ладно
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.