Поиск элемента в одномерном массиве из 12 элементов, который равен заранее заданному некоторому числу. (на языке Паскаль)

Question

Информатика

Петрина

27 сентября, 07:42

Поиск элемента в одномерном массиве из 12 элементов, который равен заранее заданному некоторому числу. (на языке Паскаль)

+3

Ответы (1)

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

Ростислав · Answer 1

Const

n=12;

var

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

p, i:integer;

begin

for i:=1 to n do

begin

writeln ('Введите элемент №', i) ;

readln (a[i]) ;

end;

writeln ('Введите число для поиска') ;

readln (p) ;

for i:=1 to n do

if a[i]=p then writeln ('элемент ', p,' находится на позиции №', i) ;

end.