Question

Написать листинг: дан массив из 10 натуральных элементов. Найти количество положительных элементов и вывести их позиции.

Answer 1

Ответ:

var a:array [1..10] of integer;

s,x,i:integer;

begin

 for i:=1 to 10 do begin

   readln (x);

   a[i]:=x;

   end;

   write ('Элементы: ');

   for i:=1 to 10 do

     if (a[i]>0) then

       write (i,',');

end.