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

Question

Информатика

Кононыч

13 июля, 07:14

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

+2

Ответы (1)

Знаете ответ на вопрос?

Зинуся · Answer 1

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.