сРОЧНО 6 простих ЗАДАЧ НА ПАСКАЛІ!!ПОЖАЛУСТА!!!

[DiNis]

Хто знає напишіть бо препод не допусте до здачі:
Цикл:
1.Дана непустая последовательность целых чисел, окан
чивающаяся числом 100. Определить, есть ли в последова
тельности число 77. Если имеются несколько таких чисел,
то определить порядковый номер первого из них.
2.Дана последовательность ненулевых целых чисел,
оканчивающаяся нулем. Определить, сколько раз в этой пос
ледовательности меняется знак. Например, в последователь
ности 10, –4, 12, 56, –4 знак меняется 3 раза.
3.Два натуральных числа называются дружественными,
если каждое из них равно сумме всех делителей другого (само
другое число в качестве делителя не рассматривается). Найти
все пары натуральных дружественных чисел, меньших 50 000.
Масиви:
4.Дан двухмерный массив целых чисел.
а) В каждой его строке заменить любой минимальный
элемент максимальным.
б) В каждом его столбце сменить знак любого максималь
ного по модулю элемента противоположным.
5. Дан двухмерный массив.
а) К элементам четных строк прибавить элемент первой
строки соответствующего столбца.
б) Из элементов нечетных столбцов вычесть элемент пос
леднего столбца соответствующей строки.
5.Дан двухмерный массив. Удалить из него:
а) k-ю строку;
б) s-й столбец;
в) первую из строк, сумма, элементов которых не превы
шает заданное число n;
г) первый из столбцов, количество нулей в котором рав
но заданному числу n;
д) две строки, одна из которых расположена перед s-й
строкой, а вторая — перед p-й;
е) два столбца, один из которых расположен после k-о
столбца, а второй — перед k-м столбцом;
ж) все строки с n-й по m-ю (n ≤ m);
з) все столбцы с s-го по q-й (s ≤ q);
и) все строки с четными номерами (на сколько уменьшит
ся количество строк?);
к) все столбцы, номер которых кратен 3 (на сколько умень
шится количество столбцов?).
6.В двухмерный массив должны были записать оцен
ки каждого из 23 учеников класса по двенадцати предметам
(в первом столбце — по первому предмету, во втором — по
второму и т. д.), но по ошибке забыли вписать в массив оцен
ки еще по одному предмету, который должен быть в перечне
в s-м столбце. Изменить массив так, чтобы он был заполнен
надлежащим образом. Оценки по новому предмету вводят
ся с клавиатуры и в дополнительный массив записываться
не должны.

[Stilet]

1.

Ну в цикле типа такого:

i:=1 while i<=length(a) do begin
 if a[i]=77 then  {Его порядковый будет i}
  break;
 else
 inc(i);
end;

[alex_fcsm]

const n=99;
var a:array[1..n+1] of integer;
   i:integer;
begin
for i:=1 to n do
 a[i]:=random(100);
 a[100]:=100;
 i:=1;
 while (a[i]<>77)and(a[i]<>100) do inc(i);
 if i<>100 then writeln(i)
    else writeln('NO');
end.