[_!nFerno]

Сообщение от retroporn

вот проверьте а а то дерьмо вышло вроде. :/ вот почему у меня нет гения в контактах в аське.

cls
input “vvedite P”; P
input “vvedite n”; n
for i = 1 to n 
 a(i) = rnd
next i
max=a(1) // гораздо надёжнее, чем присваивать ему минимально допустимое значение типа. 
s=0
j=1 //индекс для B. его окончательное значение будет показывать количество элементов массива B. 
for i=1 to n do
 if a(i)>0 then
  s=s+a(i)
 end if
 if a(i)>p then
  b(j)=a(i)
  j=j+1
 end if
 if a(i)>max then
  max=a(i)
 end if
next i
for i=1 to j-1 do
 print ” ”; b(i)
next i
print s
print max

вполне возможны синтаксические ошибки, тк на бейсике никогда не писал

на будущее - пользуйся архиватором