Поиск элемента в одномерном массиве из 12 элементов, который равен заранее заданному некоторому числу.(на языке Паскаль)
Answers & Comments
fikort
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.
Answers & Comments
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.