Заполните массив случайными числами в диапазоне 0..4 и выведите на экран номера всех элементов, значение которых равно Х (Х вводится с клавиатуры)
Заполните массив случайными числами в диапазоне 0..4 и выведите на экран номера всех элементов, значение которых равно Х (Х вводится с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гостьprogram rt;
var
i:byte;
a:array[0..4] of integer;
x:integer;
begin
for i:=0 to 4 do
a[i]:=randon(10)-5;
readln(x);
for i:=0 to 4 do
if x=a[i] writeln(x);
end.
Гостьисправил некоторые ошибки предыдущего ответа, внес дополнения
program rt;
const n=10;
var i:byte;
a:array[0..n] of integer;
x:integer;
begin write('Массив - ');
for i:=0 to n do
Begin a[i]:= random(10);
write(a[i]:3);
end;
writeln;
write('Число Х - ');
readln(x);
for i:=0 to n do
if a[i]=x then writeln('Элемент №',i+1);
end.
Не нашли ответ?
Похожие вопросы