Pascal(циклы и массивы)

[Rulyas]

Помогите с написанием программ.
Циклы:
1. Дана последовательность вещественных чисел а1, a2, ..., а15. Определить, есть ли в последовательности отрицательные числа. В случае положительного ответа определить порядковый номер первого из них.
2. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти:
а) сумму всех чисел последовательности, больших числа х;
б) количество всех четных чисел последовательности.
3.Найти натуральное число из интервала от а до b с максимальной суммой делителей.

Массивы:
1. Дан двухмерный массив целых чисел.
а) Последний четный элемент каждого столбца уменьшить на 1 (предполагается, что в каждом столбце есть четный элемент).
б) Первый нулевой элемент каждой строки заменить числом –1 (предполагается, что в каждой строке есть нулевой элемент).
2.Поменять местами второй столбец и столбец, в котором находится последний элемент, больший 100. Принять, что элементы, большие 100, в массиве есть, и что массив просматривается слева направо и сверху вниз.
3. В двухмерный массив записали годовые оценки по десяти предметам за 9-й класс каждого из 25 учеников класса (в первой строке — оценки первого ученика, во второй — второго и т. д.). В начале нового учебного года в класс пришел новый ученик. Изменить массив так, чтобы в нем были оценки за 9-й класс и нового ученика, учитывая, что этот ученик в списке должен быть на s-м месте. Оценки нового ученика вводятся с клавиатуры и в дополнительный массив записываться не должны.

[Sazary]

Первая:

uses crt;
const n = 15;
var
a : array[1..n] of real;
i : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  a[i] := random()*10-4;
  write(a[i]:5:1);
  end;
writeln;
writeln('-------');
{------}
for i:=1 to n do
  if a[i]<0 then
    begin
    writeln(i,'-e chislo - otricatelnoe (',a[i]:4:1,')');
    break;
    end;
readln;
end.

Прочитайте правила!

[Sazary]

Вторая:

uses crt;
const n = 50;
var
a : array[1..n] of integer;
i,x,sum,kolchet : integer;
begin
clrscr;
randomize;
i:=0;
repeat
  inc(i);
 a[i]:=random(15)-6;
 write(a[i]:4);
until a[i]=-1;
{----------}
writeln;
write('Vvedite x: ');
readln(x);
sum := 0;
kolchet := 0;
i:=0;
repeat
 inc(i);
 if a[i]>x then sum := sum + a[i];
 if a[i] mod 2 = 0 then inc(kolchet);
until a[i] = -1;
writeln('Sum = ',sum);
writeln('Kolichestvo chetnyh elementov: ',kolchet);
{----------}

readln;
end.

[Sazary]

Третья:

uses crt;
var
a,b,tmp,max,k : integer;

function sumdelit(m : integer) : integer;
 var sum,i : integer;
 begin
 sum := 0;
 for i:=1 to trunc(m/2) do
   if m mod i = 0 then
     sum := sum + i;
 sumdelit := sum;
 end;

begin
clrscr;
write('Vvedite a: ');
readln(a);
write('Vvedite b: ');
readln(b);
max := 0;
k := 0;
while a<b do
  begin
  tmp := sumdelit(a);
  if tmp > max then
   begin
   k := a;
   max := tmp;
   end;
  inc(a);
  end;
writeln('Result: ',k,' (summa deliteley= ',max,')');
readln;
end.

[Sazary]

Четвертая:

uses crt;
const n = 5;
var
mas : array[1..n,1..n] of integer;
i,j : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    mas[i,j] := random(5)-2;
    write(mas[i,j]:4);
    end;
  writeln;
  end;
writeln('-------');
{------------}
for j:=1 to n do
 begin
 for i:=n downto 1 do
  if mas[i,j] mod 2 = 0 then
    begin
    dec(mas[i,j]);
    break;
    end;
 end;
{-----}
for i:=1 to n do
  begin
  for j:=1 to n do
   if mas[i,j] = 0 then
     begin
     mas[i,j] := -1;
     break;
     end;
  end;
{----------}
for i:=1 to n do
  begin
  for j:=1 to n do
   write(mas[i,j]:4);
  writeln;
  end;
readln;
end.

[Sazary]

Пятая:

uses crt;
const n = 5;
var
matr : array[1..n,1..n] of integer;
i,j,k,tmp : integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
  for j:=1 to n do
    begin
    matr[i,j] := random(10)+95;
    write(matr[i,j]:6);
    end;
  writeln;
  end;
writeln('--------');
{----------}
k := 1;
for j:=1 to n do
  begin
  for i:=1 to n do
   if matr[i,j] > 100 then k:=j;
  end;
{-----}
for i:=1 to n do
 begin
 tmp := matr[i,2];
 matr[i,2] := matr[i,k];
 matr[i,k] := tmp;
 end;
{----}
for i:=1 to n do
 begin
 for j:=1 to n do
  write(matr[i,j]:6);
 writeln;
 end;
readln;
end.

[Sazary]

Шестая. Для проверки лучше уменьшить значения m (количество учеников) и n (количество оценок)

uses crt;
const m=25; n=10;
var
mas : array[1..m+1,1..n] of integer;
s,i,j : integer;
begin
clrscr;
randomize;
for i:=1 to m do
  begin
  for j:=0 to n do
    begin
     if j=0 then write(i:2,' | ')
     else
      begin
      mas[i,j] := random(4)+2;
      write(mas[i,j]:3);
      end;
    end;
  writeln;
  end;
writeln('-------');
{---------}
writeln('Prishel novyj uchenik. Vvedite nomer:');
readln(s);
writeln('Vvodite ocenki:');
for j:=1 to n do
  begin
  for i:=m+1 downto s do
   mas[i,j] := mas[i-1,j];
  readln(mas[s,j]);
  end;
{---------------}
writeln;
for i:=1 to m+1 do
  begin
  for j:=0 to n do
   begin
   if j=0 then write(i:2,' | ')
   else write(mas[i,j]:3);
   end;
  writeln;
  end;

readln;
end.

[capta1n]

program capta1n;
const
  n = 25;
  m = 9;
type
  mark = 2..5;
  marks = array [1..m] of mark;
  student = array [1..n+1] of ^marks;
var
  A : ^student;
  i,k : byte;
  s : 1..n+1;
begin
  new(A);
  randomize;
  for i:=1 to n do
  begin
    new(A^[i]);
    for k:=1 to m do
    begin
      A^[i]^[k]:=random(4)+2;
      write (A^[i]^[k],'|')
    end;
    writeln
  end;
  writeln; writeln;

  write ('Vvedite nomer mesta: '); readln(s);
  new(A^[n+1]);
  for i:=n downto s do
   for k:=1 to m do
    A^[i+1]^[k]:=A^[i]^[k];
  for k:=1 to m do A^[s]^[k]:=5;
  for i:=1 to n+1 do
  begin
    for k:=1 to m do write (A^[i]^[k],'|');
    writeln
  end;

  readln;
end.

Специально не делал ввод оценок - посчитал, что суть не в этом, а самом формировании динамического массива

[Rulyas]

Спасибо большое за помощь