Напишите, пожалуйста, программу на Free Pascal. Определить, присутствует ли в одномерном массиве заданный элемент?
Ответы
Ответ дал:
1
Ответ:
var count, element: integer;
mas: array [0..19] of integer;
begin
randomize();
for var i:= 0 to 19 do
mas[i] := random(32);
Writeln(mas);
Readln(element);
for var i := 0 to 19 do
if mas[i] = element then
begin
Writeln('Yes');
exit
end;
Writeln('No');
End.
Объяснение:
exit - досрочный выход из процедуры.
Ответ дал:
1
var
i, n, m: integer;
a: array of integer;
begin
write('Размер массива? ');
read(n);
setlength(a, n);
writeln('Введи элементы массива');
for i := 0 to n - 1 do
read(a[i]);
write('Что искать? ');
read(m);
for i := 0 to n - 1 do
if a[i] = m then
begin
write('Найден элемент с номером ', i + 1);
exit;
end;
write('Нет такого элемента');
end.
Муса134:
Можно, пожалуйста, еще схему алгоритма. А то программа пишет, что a[1]=a[2].
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад