Дан массив А. Определить, сколько раз в нём встречается число С

+1
Ответы (1)
  1. 26 июня, 07:21
    0
    program zz1;

    const n = 10; / / задаем количество чисел в массиве

    var i, c, k:integer; / / задаем переменные целого типа

    m:array [1 ... n] of integer;

    begin

    write (' введите заданное С ');

    read (c);

    for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

    m[i]:=random (5);

    for i:=1 to n do / / выводим исходный массив на экран

    write (m[i], ' ');

    writeln; / / переходим на новую строку для вывода ответа

    for i:=1 to n do

    if m[i] = c then k:=k+1;

    write (' количество найденных чисел С = ', k);

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Как можно представить одну и ту же информацию в различных формах? 1. В классе 15 мальчиков и 24 девочек. 2. Вы получили хорошую оценку по предмету. 3. Идёт дождь. 4. Проезд прямо запрещён!
Ответы (1)
В процессе преобразования растрового изображения количество цветов в нём уменьшилось с 19683 до 27. Во сколько раз уменьшился информационный объём этого изображения?
Ответы (1)
В велокроссе участвуют 235 спортсменов. Специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием минимально возможного количества бит, одинакового для всех спортсменов.
Ответы (1)
Какой объем видеопамяти в Кбайтах нужен для хранения изображения размером 720 х340 пикселей и использующего 128-цветную палитру?
Ответы (1)
Укажите наименьшее шестизначное двоичное число, запись которого содержит четыре единицы. В ответе запишите полученное число в десятичной системе счисления.
Ответы (1)