Ответ:
Объяснение:
const
n_max=100;
var
a: array[1..n_max] of integer;
n,i,x,k: integer;
begin
write('Введите размер массива: ');
readln(n);
for i:=1 to n do
a[i]:=random(n_max);
write(a[i]:3);
end;
k:=0;
writeln;
writeln('Введите число X: ');
readln(x);
if a[i]=x
then k:=i;
if k=0 then
writeln(0)
else
writeln('Элемент, равный ',x,' на ',k,'-й позиции');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Объяснение:
const
n_max=100;
var
a: array[1..n_max] of integer;
n,i,x,k: integer;
begin
write('Введите размер массива: ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(n_max);
write(a[i]:3);
end;
k:=0;
writeln;
writeln('Введите число X: ');
readln(x);
for i:=1 to n do
if a[i]=x
then k:=i;
if k=0 then
writeln(0)
else
writeln('Элемент, равный ',x,' на ',k,'-й позиции');
end.