Массив, Двумерный Массив...

uses crt;
var a:array[1..100] of real;
    max,sm:real;
    n,i,imax:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:5:2);
 end;
writeln;
writeln;
max:=a[1];
imax:=1;
for i:=1 to n do
if a[i]>max then
 begin
  max:=a[i];
  imax:=i;
 end;
writeln('Максимум=',max:0:2,'  его индекс=',imax);
sm:=0;
for i:=1 to imax-1 do
sm:=sm+a[i];
write('Сумма до первого максимального элемента=',sm:0:2);
readln
end.

uses crt;
var a:array[1..20,1..20] of integer;
    b:array[1..20,1..20] of real;
    m,n,i,j,min,k:integer;
begin
clrscr;
randomize;
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
writeln('Первый массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(10);
    write(a[i,j]:5);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  min:=a[i,1];
  for j:=1 to n do
  if a[i,j]<min then min:=a[i,j];
  if min<>0 then
   for k:=1 to n do
   b[i,k]:=a[i,k]/min
  else
  for k:=1 to n do
  b[i,k]:=a[i,k];
 end;
writeln('Второй массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(b[i,j]:5:1);
  writeln;
 end;
readln
end.

uses crt;
var n:integer;
    a,s,t:real;
begin
clrscr;
a:=0.00001;//заданная точность
n:=1;
t:=-1/4;//первый член ряда
s:=-1/4;//первая сумма
while abs(t)>a do//пока не достигнута заданная точность
 begin
  n:=n+1;//следующий
  t:=t*(-1)/(2*n*(2*n-1));//домножаем на -1 и делим на недостающие члены факториала
  s:=s+t/(2*n);//прибавляем, разделив на 2n
 end;
writeln('a=',a:8:5);
writeln('t=',t:10:8);
write('s=',s:10:8);
readln
end.