1) В массиве из 11 действительных чисел, введённых с клавиатуры, найти номер первого положительного элемента и выдать на экран этот элемент или сообщение о том, что в массиве положительных элементов нет.
прошу вас решите!

var a:array[1..11] of real;t,i:integer;beginfor i:=1 to 11 doread(a[i]);for i:=1 to 11 doif a[i]>0 then  begin t:=i; break; end;if t<>0 then writeln(a[t])else writeln('Not found');end.