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

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

Question

Информатика

Эразм

17 октября, 08:23

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

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

+5

Ответы (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.