Question

ajutati-ma va rog sa fac un program in pascal
se da un tablou liniar cu n componente numere intregi si un nr intreg m.determinati daca printre valorile componentelor se contine valoarea data m.

Answer 1

o varianta

program cauta;
var tablou:array[1..10] of integer=(1,4,7,9,54,8,4,90,10,16);
m,i:integer;
begin
write('introduceti valoarea lui m=');
readln(m);
for i:=1 to 10 do
if m= tablou[i] then
begin
write(m);
write( ' exista ');
writeln('stop'); // sau nu
break; // stop
end;
end.