Ребята спасайте завтра сдавать работу не могу решить две оставшиеся задачи!

[Мортум]

1.Имеется массив А из N произвольных чисел. Используя, операторы цикла составить программу.

[WorldMaster]

Язык то какой?

[Мортум]

на языке Паскаль

[WorldMaster]

Сообщение от Мортум

на языке Паскаль

Текста не видно на картинках. Где высококачественный оригинал?

[Мортум]

Я файл загрузил там лучше видно

[WorldMaster]

Так в чем проблема то?

[Мортум]

не могу решить, получается бред какой то,мозги кипят.Если знаете как решить напишите прошу, мне еще теорию в голову укладывать.

[Мортум]

в 1ой задачи мне казалось что решение

Program maximum;
Var    N, max, next, k: integer;
Begin
  Write('Введите количество чисел'); Readln(n);
  Write('Введите число'); Readln(max);
  k:=1;
  repeat
    Write('Введите число'); Readln(next);
    K:=k+1;
    If next>max then max:=next
  Until k=n;
  Writeln(max);
  Readln
End.

а в итоге не подходит под вопрос задачи

Ребята, кто чем может помогите((иначе не зачет поставят(((

Если кто готов помочь за оплату?сколь будет стоить решить эти две задачи?

[WorldMaster]

Задача 1:

uses crt;
const n=20;
type
   vector = array[1..n] of integer;

var i, maxV, maxI:integer;
    a: vector;

begin
clrscr;
randomize;

for i:=1 to n do a[i] :=  random(1000);

write('Vector A = ');
for i:=1 to n do write(a[i],' ');
writeln;

maxV := -32689;
for i:=0 to n do
    if a[i]> maxV then
       begin
       maxV := a[i];
       maxI := i;
    end;

writeln('Maximum value = ',maxV, ', Value index = ', maxI);

write('Nums after Max = ');
for i:=maxI to n do write(a[i], ' ');
readln;
end.

Задача 2:

uses crt;
const n=10;
type
   vector = array[1..n] of real;
var i: integer;
    f: real;
    a: vector;
    s: string;

function Tg(x:real):real;
begin
Tg:=Sin(x)/Cos(x);
end;

begin
clrscr;
for i:=1 to 10 do
  begin
   f := Tg(i);

   if (f > 3) then
   begin
   a[i] := (sqrt(i) +2)/(n+3);
   continue;
   end;

   if (f = 3) then
   begin
   a[i]:=0;
   continue;
   end;

   if (f < 3) then
   begin
   a[i]:= exp(i+Cos(n));
   continue;
   end;
  end;

  write('Vector A= ');
  for i:=0 to 10 do
      begin
      str(a[i]:0:4,s);
      write(s,', ');
      end;
 readln;
end.