Вот они:

1) Дано натуральное число N (N>9) определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример: N=10025000 - количество нулей = 2.

2) Определить наименьший элемент каждой четной строки матрицы А размера [M;N].

3) Дана квадратичная матрица порядка М. Повернуть ее на 270 градусов в положительном направлении.

4) Задана последовательность из N целых чисел. Вычислить сумму элементов массива, порядковые номера которых совпадают со значением этого элемента.

5) Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент M. Получить в порядке возростания все целые числа из интервала (n;M), которые не входят в данный массив.

Помогите пожалуйста, если не сложно.
Заранее благодарен!

http://forum.vingrad.ru/index.php?showforum=25

Akina не понимаю твою ссылку!
Кы! Держи прги!

1.1) Дано натуральное число N (N>9) определить количество нулей в цифровой записи числа, кроме нулей в младших разрядах. Пример: N=10025000 - количество нулей = 2.



Код:


Program Skuka;

Var
i: longint;
N: integer;

begin
write('input Nomber, pleeeaaase: ');
readln(i);
N:= 0;
while ((i mod 10) = 0) do
begin
i:= i div 10 ;
end;;
while (i <> 0) do
begin
if (i mod 10) = 0 then inc(N);
i:= i div 10;
end;
writeln(' N of 0 = '), N;
readln;

end;


4)
Код:

program SomeProgram;
var i,n,summ:integer;
a:array[1..150] of integer;
begin
readln(n); {ввод размерности массива}
for i:=1 to n do readln(a[i]); {ввод массива}
summ:=0; {обнулим сумму на всякий случай}
for i:=1 to n do {собственно поиск суммы}
if a[i]=i then {коли номер элемента равен элементу, то...}
summ:=summ+a[i]; {...прибавить к сумме значение элемента}
Writeln('Сумма:',summ);
end.


Ну, коли так, то получи ещё одну
2)
Код:

program TheSecond;
var a:array[1..20,1..20] of real;
m,n,i,j,Jmin:integer;
begin
readln(m,n); {вводим размерность матрицы}
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]); {вводим матрицу пострчно}
for i:=1 to m div 2 do {это шобы брать не все строки}
begin
Jmin:=1; {предположим, что именно первый элемент строки - наименьший}
For j:=2 to n do {А потом переберём оставшуюся часть строки...}
if a[2*i,j]<a[2*i,Jmin] {...и если это не самый малый элемент,...}
then Jmin:=j; {...то запомнить номер "более меньшего элемента"}
Writeln('Минимальный элемент в ',2*i,'-й строке: ',a[2*i,Jmin]);
end;
Writeln('The END!');
end.


5) Дан массив целых чисел. Найти в этом массиве минимальный элемент m и максимальный элемент M. Получить в порядке возростания все целые числа из интервала (n;M), которые не входят в данный массив.

Код:
program Proga5;
type massive=array[1..50] of integer;
var mas,rez:massive;
n,i,max,min,nRez:integer;

procedure GetMinAndMax(m:massive;n:integer; var max,min:integer);
var i:integer;
begin
max:=m[1]; min:=m[1];
for i:=2 to n do begin
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i]
end;
end;

function Check(a:integer; m:massive; n:integer):boolean;
var b:boolean;
i:integer;
begin
b:=false;
for i:=1 to n do
if m[i]=a then begin b:=true; break end;
check:=b;
end;

begin
writeln('------------------------------------------------');
writeln('Vvedite kolichestvo elementov v massive, PLS:');
write('n=');readln(n);
writeln('vvedite znacheniya elementov massiva:');
for i:=1 to n do begin
write('Massive[',i,']='); readln(mas[i]) end;
writeln('------------------------------------------------');
GetMinAndMax(mas,n,max,min);
nRez:=0;
for i:=min+1 to max-1 do
if not check(i,mas,n) then begin nrez:=nrez+1; rez[nrez]:=i end;
writeln('OTVET:');
for i:=1 to nrez do write(rez[i],' ');
end.


Надеюсь, ты не на программиста учишься? А то как-то стыдно не решить такие задачи... Если не не программиста, то тогда понимаю. Хотя, в любом случае, это - для меня лишний повод окунуться в ностальгию (сто лет не открывал Паскаль, все Делфи, да Делфи....)

М	Voventus юзайте теги [code=delphi][/code] для оформления кода...