Предмет: Информатика,
автор: TorisF
!Помогите написать программу! Найти и вывести на экран элементы массива равного заданному с клавиатуры числу. Элементы массива заданы случайным образом.
Ответы
Автор ответа:
0
var
a:array of integer;
i,n:integer;
begin
write('Введите кол-во эл массива: '); readln(n);
setlength(a,n);
for i:=0 to n-1 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Введите число: '); readln(n);
for i:=0 to length(a)-1 do
if a[i]=n then writeln('a[',i+1,']=',a[i]);
end.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!
Похожие вопросы
Предмет: Русский язык,
автор: Олюня25
Предмет: Русский язык,
автор: kemkin2005
Предмет: Русский язык,
автор: Zewaka
Предмет: Математика,
автор: aizhan36700
Предмет: Биология,
автор: klassnaia9