13 июля, 07:14

Дан массив вывести на экран индексы тех элементов значения которых равны числу м

0
Ответы (1)
  1. 13 июля, 07:46
    0
    Program index;

    Uses crt;

    Var A: array [1 ... 10] of integer;

    i, m: integer;

    Begin clrscr;

    Writeln ('Введите элементы массива') ;

    for i:=1 to 10 do

    read (a[i]) ;

    Writeln ('Введите число m') ;

    Readln (m) ;

    for i:=1 to 10 do

    begin

    if a[i]=m then

    Write (i,' ') ;

    end;

    readln;

    readkey;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан массив вывести на экран индексы тех элементов значения которых равны числу м ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Файл размером 64 Кбайт передаётся через некоторые соединени со скорости 4096 бит в секунду. Определите размер файла В Кбайт каторий можно передат за тоже время через другой соединения с скорости 256 бит в секунд?
Ответы (1)
Информация передается со скоростью 40 мб/с. какой объем информации будет передан за 20 минут. ответ в (тб)
Ответы (1)
Введите число от 1 до 7. Напечатайте соответствующий номер цвет из цветов радуги
Ответы (1)
Перечислите три способа выравнивания текста в текстовом редакторе
Ответы (1)
Как называется ссылка, которая при копировании формулы из одной ячейки в другую не изменяется
Ответы (1)
К какой группе относятся мертвые языки формальной или неформальной?
Ответы (1)
К какому типу переменных относится 3.14
Ответы (1)
Нужно найти квадрат наибольшего из двух чисел?
Ответы (1)
Написать программу определения пренажлежности 4-х точек а, b
Ответы (1)
Сообщение занимает 3 страницы по 30 строк. В каждой строке записано по 20 символов. Сколько символов в использованном алфавите, если все сообщения содержат 1125 байт?
Ответы (1)