Паскаль(абс)

[Roll1n]

{Лабораторная работа 1}
Program lab2;
Uses Crt;
Const lmax=1000;{максимальная длина массивов}
Type mass=array[1..lmax] of real;
Var R:mass;
i,k,n,nmin:integer;
a,x,h,min:real;
begin
clrscr;
writeln('Лабораторная работа 2');
{задание 1}
writeln('Задание 1');
{ввод исходных данных для задания  1};
writeln('Введите длину массива до 1000');
read (n);
writeln('Введите "a" , "x" , "h" ');
read(a,x,h);
for i:=1 to n do begin
R[i]:= 1.5*cos(3*a*x+i*h);
write('   R[', i ,']=',R[i]:5:3);
end;
for i:=1 to n do
if r[i]<min then
begin
min:=r[i];
nmin:=i;
end;
for i:=1 to n do
if r[i]<0 then r[i]:=r[i+1];
for i:=1 to n do
write(r[i]:4:2, ' ');
end.

Вот,но это без 3го задания

[Roll1n]

никто не может доделать?

[.Phoenix]

Program lab2;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Const lmax=1000;{максимальная длина массивов}
Type mass=array[1..lmax] of real;
Var R,Q:mass;
i,n,nmin,k,g:integer;
a,x,h,min,sum,rez:real;
begin
writeln('Lab 2');
{задание 1}
writeln('z 1');
{ввод исходных данных для задания  1};
writeln('Dlina massiva');
readln(n);
writeln('vvedi "a" , "x" , "h" ');
readln(a,x,h);
min:=MaxInt;
for i:=1 to n do begin
R[i]:= 1.5*cos((3*a*x)+(i*h));
writeln(' R[', i ,']=',R[i]:5:3);
end;
{задание 2}
for i:=1 to n do
if r[i]<min then
begin
min:=r[i];
nmin:=i;
end;
g:=0;
writeln('Minimalnoe zna4enie ',min:4:2,' ', nmin);{определние положения минимального числа}
for i:=1 to nmin do
  begin
        if r[i]>0 then
            begin
            q[i]:=r[i]; {создаем новый массив из пололжительных чисел}
            g:=g+1;
            end;
  end;

for i:=1 to g do
writeln(q[i]:3:2, ' '); {вывод нового массива}
sum:=0;
for i:=2 to g-1 do
sum:=sum+ q[i];
writeln('Avg= ',sum/(g-2));
readln;
end.

Вот код, но есть один баг, иногда в самом начале после удаления стоит сразу 0 это не правильно, но в большинстве случаев работает.

[.Phoenix]

Главное помни! Что Третьему параметру, никогда не задвай значение 0, иначе во всех элементах массива будут одинаковые числа!

[Roll1n]

Спасибо огромное.есть один вопрос

uses
SysUtils


что это такое?)

[Roll1n]

Просто у мя паскаль(абс) и это команда не работает.

[.Phoenix]

Убери её, я в среде Delphi пишу, поэтому, а так добавь как обычно

Uses CRT;
....
begin
clrscr;