const n=30;
var k:array[1..n] of integer; i,t,p:integer;
begin
randomize;
for i:=1 to n do begin
k[i]:=random(100);
if (k[i]>0) then p:=p+1;
if (i=3) and (k[3]>0) then t:=k[3];
end;
if (p<3) then write('В массиве меньше трех положительных элементов') else writeln('Третий элемент массива равен ', t);
end.
Отрицательного значения в массиве не будет, напиши формулу к массиву k[i]:=твоя формула. Формула должна быть такой, чтобы попадались и отрицательные элементы, а так, программа рабочая
const N = 30;
var a : array[1..N] of integer;
i, j, x : integer;
Begin
for i := 1 to N do readln(a[i]);
readln(x);
for i := 1 to N do begin //перебираем элементы массива
if a[i] = x then begin //если находим элемент равный Х то
writeln('наименьший номер элемента равного X - ', i); //выводим сообщение
exit; //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер
end;
end;
writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение
end.
Объяснение:
объяснения в комментариях программы
проверено на PascalABC