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

прошу вас решите!

Question

Информатика

Ритуша

4 июня, 21:06

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

прошу вас решите!

+2

Ответы (1)

Знаете ответ на вопрос?

Диодора · Answer 1

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 t0 then writeln (a[t])

else writeln ('Not found') ;

end.