1. Дан массив размера N. Осуществить циклический сдвиг элементов массива налево на одну позицию.

2. Дана целочисленная матрица размера M x N. Вывести номер ее последнего столбика, который содержит ровное количество додатних и отрицательных элементов (нулевые элементы не учитываются). Если таких столбиков нет, то вывести 0.

 

никто не знает?

 

никто не знает?

Знают все.
вы<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">ЭТО прочитайте</div></div><div class="sp-body"><div class="sp-content">

Уважаемые студенты! Если хотите, что бы ваша просьба была рассмотрена и решена в кратчайшие сроки то, пожалуйста, следуйте следующим простым правилам:

1. Создавайте информативные заголовки тем. Никаких помогите плизз,Решите срочно!! и т.п. Конкретно пишите, в чем проблема.
2. В самой теме КОНКРЕТНО и ПОЛНОСТЬЮ указывайте задание. Варианты в духе:Ну там типа массив, нуно его это типа.. ну это Рассматриваться НЕ БУДУТ.
3. ОБЯЗАТЕЛЬНО указывайте нужный ЯЗЫК решения и дополнительные условия если они есть.
4. старайтесь ВСЕГДА сначала решить задачу САМОСТОЯТЕЛЬНО, ну а когда не выходит ОБЯЗАТЕЛЬНО публикуйте здесь свой код, даже если он не работает. Поверьте, это значительно повышает к вам уважение. Халявщиков, которым нужно, что бы им просто кто-нить нахаляву сделал - здесь не любят. Да и исправить мелкую ошибку в готовом коде легче, чем писать все заново.
5. Ну а те, кто не хочет что-то делать самостоятельно должны понимать, что работа людей стоит денег. Даже самая мелкая. А потому если вы готовы платить за решение своей проблемы, то так же указывайте это в своей теме. Что-то в духе: Нужно решить такую-то задачу. Оплата.

В случае НЕ СЛЕДОВАНИЯ этим простым правилам ваша тема может быть удалена/пересена/закрыта/отредактирована по настроению модератора(А они здесь злые=).

Удачи.

И подумайте. Всем банально лень. Сфигали вы решили, что вам вот так возьмут и просто так будут решать _ВАШИ_ _ПРИМИТИВНЫЕ_задачи?
ЗЫ.
То что под спойлером - это правила этого подфорума. Они есть и выше на странице..

 

ровное количество додатних

и не забудьте перевести условие на русский язык)

 

А головой подумать?(Хотя бы попытались сами что то сделать)

1. Дан массив размера N. Осуществить циклический сдвиг элементов массива налево на одну позицию.

t:=a[1]
for i:=2 to N do
a[i-1]:=a[i];

a[n]:=t;

2. Дана целочисленная матрица размера M x N. Вывести номер ее последнего столбика, который содержит ровное количество додатних и отрицательных элементов (нулевые элементы не учитываются). Если таких столбиков нет, то вывести 0.

<!--shcode--><pre><code class='Delphi'>var kp,km,ind,i,j:integer;
begin
kp:=0;
km:=0;
ind:=0;
for j:=1 to n do
begin
kp:=0;
km:=0;
for i:=1 to m do
begin
if a[i,j]<0 then km:=km+1;
if a[i,j]>0 then kp:=kp+1;
end;
if kp=km then ind:=i;
end;
writeln(ind);
readln;
end.[/CODE]

P.S.Возможно второй код надо поправить



http://www.cyberforum.ru/pascal/thread113966.html