Помогите решить задачу ,пожалуйста

[DimoniusX]

В одномерном массиве , состоящем из n вещественных элементов вычислить:
-максимальный элемент массива
-сумму элементов массива , расположенных до последнего положительного элемента

[alex_fcsm]

const n=20;
var a:array[1..n] of real;
    i,max:byte;
    
begin
randomize;
for i:=1 to n do
 a[i]:=random(10000)/(random(10)+1);
 max:=1;
 for i:=2 to n do
  if a[max]<a[i] then max:=i;
writeln('Max:',a[i],' index:',max)
end.

[Sazary]

Вот. Последний положительный элемент к сумме не прибавляется.

uses crt;
var
a : array[1..100] of real;
n,i : integer;
max,sum : real;
fl : boolean;
begin
clrscr;
write('Enter n: ');
readln(n);
{--}
randomize;
for i:=1 to n do
 begin
 a[i]:= random(30)/3-5;
 write(a[i]:7:3);
 end;
writeln;
writeln('-------');
{--------}
max := a[n];
sum := 0;
fl := false;
for i:=n downto 1 do
  begin
  if a[i]>max then max := a[i];
  if  fl then sum := sum + a[i]
   else if a[i]>0 then fl := true;
  end;
writeln('Max= ',max:7:3);
writeln('Sum= ',sum:7:3);
readln;
end.

[alex_fcsm]

const n=20;
var a:array[1..n] of real;
    i,lim:byte;
    sum:real;
    
begin
randomize;
for i:=1 to n do
begin
 a[i]:=random(100)-random(100);
 write(a[i],' ');
end;
 lim:=0;
 for i:=2 to n do
  if a[i]>0 then lim:=i;
 sum:=0;
 for i:=1 to lim do
  sum:=sum+a[i];
 writeln;
writeln('Summa 1 to ',lim,' ',sum);
end.

[n1ce > Kuzia]

alex ne mog bi pomoch s zadachami

[alex_fcsm]

C чем не мог бы помочь?
Создавайте свою тему и задавайте вопросы, а не флудите во всех разделах - нарветесь на бан.

P.S. Читайте правила на форуме

[n1ce > Kuzia]

ai sozdal temu vot silka na zadachu pomogi pozaluista
http://programmersforum.ru/showthread.php?t=35612

[alex_fcsm]

Поиск по форуму используйте. Что-то есть тут

Переделанное

program Integrirovanie;
uses crt;
const n=20;
var   s1,a,b:real;
function f(x:real):real;
begin
f:=ln(sqr(x+1))/(sqrt(3*x-1)); {функция которую интегрируем}
end;
function integ1(a,b:real;n:longint):real;
var s,h:real; p,j:longint;
begin {интегрирование по методу Симпсона}
h:=(b-a)/n;
s:=0;
p:=4;
for j:=1 to n-1 do
begin
s:=s+p*f(a+h*j);
p:=6-p;
end;
integ1:=h/3*(f(a)+f(b)+s);
end;

BEGIN
clrscr;
write('введите a: a=');
readln(a);
write('введите b: b=');
readln(b);
s1:=integ1(a,b,n);
writeln('интегрирование по методу Симпсона');
writeln('I=',s1:0:5);
readln;
END.

[n1ce > Kuzia]

spasibo bol6shoe viruchil

[n1ce > Kuzia]

a chto za metod simpsona