задачи по массивам - помогите !!!

[-=<[Evklidd]>=-]

Вот ваша программа, кася:

program m;
var
 ar: array [1..85] of integer;
 i, max: integer;
begin
 Randomize;
 for i:= 1 to 85 do
  begin
   ar[i]:= random(31)-20;
   if ar[i] < 0 then
   max:= ar[i];
  end;
 for i:= 1 to 85 do
  begin
   if (ar[i]<0) and (ar[i]>max) then
   max:= ar[i];
  end;
 writeln('Maximal otricatelnui element: ', max);
 readln;
end.

[кася]

Огромное СПАСИБО! Не будет ли нахальством с нашей стороны попросить еще помощи?
Задание: Дана матрица B(N,M) (N=M или N<M, M<13 или M=13). Найти сумму элементов каждого столбца матрицы. Сформировать массив D из найденных сумм.
1. Даны натуральное число N и вещественное a. Вычислить:
Сумму 'a' в степени 'к' от k=1 до N

[Шаман]

Сообщение от кася

1. Даны натуральное число N и вещественное a. Вычислить:
Сумму 'a' в степени 'к' от k=1 до N

uses
crt;
var
a,summa:real;
n,k:integer;
begin
 clrscr;
 writeln('Введите N'); 
  readln(n);
 writeln('Введите А');
  readln(a);
   for k:=1 to n do 
     begin
      summa:=summa+(exp(ln(a)*k));
     end;
   writeln(summa:6:1);  
readln;
end.

Держите, разбирайтесь...Вроде как то так...

[кася]

ОГРОМНОЕ спасибо!

[кася]

1. Даны натуральное число N и вещественное f. Вычислить
Произведение от i=1 до N, умноженное на дробь 1, деленная на сумму (f+k) от k=0 до i

[Карась]

Сообщение от кася

1. Даны натуральное число N и вещественное f. Вычислить
Произведение от i=1 до N, умноженное на дробь 1, деленная на сумму (f+k) от k=0 до i

Правила форума читали?
Зачем Вы всегда задаёте свой вопрос в чужой теме?
Почему не создать свою тему, где выложите ваши наработки и правильно придумаете вопрос?
Задачи у Вас элементарные, конкретных вопросов нет. Флуд.

[Alex21]

кася, есть конкретный вопрос - создайте тему.
Один вопрос = одна тема.

Не забывайте про правила.

[мар5094]

помогите решить задачу по массивам

[мар5094]

разработать программу вывода на печать больших чем последующие элементов массива J из 9 чисел. значения элементов массива рассчитать по формуле CsinC,где С номер элемента массива.