1) В массиве из 11 действительных чисел, введённых с клавиатуры, найти номер первого положительного элемента и выдать на экран этот элемент или сообщение о том, что в массиве положительных элементов нет. прошу вас решите!
Var a:array[1..11] of real; t,i:integer; begin for i:=1 to 11 do read(a[i]); for i:=1 to 11 do if a[i]>0 then begin t:=i; break; end; if t<>0 then writeln(a[t]) else writeln('Not found'); end.