Написать программу ,которая проверяет,находится ли введенное с клавиатуры число в массиве.Массив также должен вводиться во время программы.(ПАСКАЛЬ) С
ОБЪЯСНЕНИЕМ!
Заранее спасибо!!!
Вот так попробуй
var
a: array[1..10] of integer;
x, i: integer;
l: boolean;
begin
write(Введите ряд чисел - );
//заполняем массив
for i:=1 to 10 do
read(a[i]);
//вводим число, которое нужно проверить
write(Введите число - );
readln(x);
//проверяем, есть ли число в массиве
//если есть, то l будет присвоено true
for i:=1 to 10 do
if a[i] = x thenl := true;
//проверяем,чему равна l
if l=true then
writeln(Число ,x, есть в массиве.)
else
writeln(Числа ,x, нет в массиве.);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
