В мене проблема потрібно здать завтра 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-м столбце. Изменить массив так, чтобы он был заполнен
надлежащим образом. Оценки по новому предмету вводят
ся с клавиатуры и в дополнительный массив записываться
не должны.

Сегодня, 12:26

[Google[Bot]]

http://programmersforum.ru/showthread.php?t=36237

[DiNis]

Там не правильно

[alex_fcsm]

Сообщение от DiNis

Там не правильно

И что же там неправильно?

[DiNis]

там тільки одна задача.А не правельно те шо треба вводить послєдоватільність самому з клавіатури

[maladoy]

const n=99;
var a:array[1..n+1] of integer;
   i:integer;
begin
writeln('vvedite elementy:');
for i:=1 to n do
 readln(a[i]);
 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.

[DiNis]

можете підкинуть остальні 5 ПОЖАЛУСТА
І Я не хакір а тільки УЧУСЬ

[Stilet]

І Я не хакір а тільки УЧУСЬ

Вот и учился бы вместо того чтоб кросспостить форум вопросами по сто раз!

[DiNis]

шоб дальше вчиться мені треба здать ці задачі до завтра а то пряма дорога мені в армію

[DiNis]

за першу задачу СПАСІБА мені треба ше 5.
А як тільки розрулю цей Паскаль сам буду помагать кому зможу