Задать вопрос

заполнить массив случайными числами с промежутка 1-100 и определить в массиве Е [1 ... 30], кол-во чисел с одинаковыми цифрами

+5
Ответы (1)
  1. 18 мая, 01:59
    0
    program zz1;

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

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

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

    begin

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

    m[i]:=random (100) + 1;

    for i:=1 to n do / / выводим полученный массив на экран

    write (m[i],' ');

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

    k:=0;

    for i:=1 to n do

    begin

    if (m[i] < 10) then k:=k + 1;

    if (m[i] div 10 = m[i] mod 10) then k:=k + 1;

    end;

    writeln (' кол-во чисел с одинаковыми цифрами = ', k); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «заполнить массив случайными числами с промежутка 1-100 и определить в массиве Е [1 ... 30], кол-во чисел с одинаковыми цифрами ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество. 2. Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50.
Ответы (1)
Заполнить массив случайными числами из промежутка (1-100) и определить в массиве Н[1 ... 30]кол-во чисел запись которых заканчивается единицей
Ответы (1)
Заполнить массив случайными числами из промежутка 1-100 и определить в массиве произведение двузначных чисел кратных 10
Ответы (1)
1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3.
Ответы (1)
Дан одномерный массив B (10). Заполнить массив случайными числами из промежутка [0; 1) и вывести его на экран в строку.
Ответы (1)