Question

Есть ли в массиве элементы, равные числу, введённому пользователем? паскаль. составить программу и оформить ответ!

Answer 1

Var a: array[1..10] of real;
x: real;
a, i: integer;
begin
a:=0;
for i:=1 to 10 do begin
readln(a[i]);
if a[i] = x then 
a:=a+1;
end;
if a>0 then
writeln('Таких элементов ', a)
else
writeln('Такого элемента нет');
end.

Answer 2

Var 
a: array[1..100] of integer; 
i, j, c: integer;
begin 
Writeln('Массив '); 
for i := 1 to 100 do  begin   
a[i] := random(201) - 100;   
write(a[i], ' '); 
end; 
Writeln; 
write('Введите число (от -100 до 100) '); 
Readln(j); 
for i := 1 to 100 do    
if a[i] = j then begin c := c + 1; write(i, ' '); end; 
Writeln;   
if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else  if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет');  
end.