Решить задачу: написать программу нахождения элемента массива равного 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.