СРОЧНО, ПРОШУ
Решить задачу: написать программу нахождения элемента массива равного 7. Вывести на экран номер этого элемента. Если такого элемента не встретится, то вывести сообщение "нет" Массив заполняется случайными числами от 1 до 50. Использовать цикл с постусловием(repeat...until).
Ответы
Проверку можно устроить, например, так. Пусть сначала i = 0, и в цикле увеличиваем i, пока не уйдем за границы массива или не встретим элемент, равный 7. После выхода из цикла проверяем, по какой причине был выход из цикла, и в зависимости от этого выводим либо номер элемента, либо сообщение об отсутствии семерок. При этом будет выведен только номер первой семерки, если их в массиве несколько.
Вывод массива можете дописать при необходимости самостоятельно, видимо, считается, что вы это умеете делать :)
Код (Pascal):
const
n = 20;
var
a: array[1..n] of integer;
i: integer;
begin
randomize;
for i := 1 to n do
a[i] := random(50) + 1;
i := 0;
repeat
i := i + 1;
until (i > n) or (a[i] = 7);
if i > n then
write('нет')
else
write(i)
end.