Помогите с массивами

[Юль_кА]

Приветик. Помоги пожалуйста решить эит 2 задачки. очень срочно надо
1. Дан вектор. Осуществить последовательный сдвиг налево всех элементов вектора. Первый элемент поместить на последнее место
2.Дана матрица размером 5 x 10. В каждом столбике найти количество элементов, больших от среднего арифметического всех элементов этого столбика

[Stilet]

Ох Юлька-красотулька. Уроки то когда учить будем?
Задача 1 как ее понял:

uses crt;
var b,a:array[1..20] of integer; i:integer;
begin
clrscr;
for i:=1 to 20 do begin
 a[i]:=random(100);
 write(a[i]:3);
end;
writeln;
write('Введите коэффициент сдвига');readln(i);
move(a[i],b[1],(20-i+1)*sizeof(a[1]));
move(a[1],b[20-i+2],(i+1)*sizeof(a[1]));
writeln;
for i:=1 to 20 do write(b[i]:3);
readln;
end.

Если что спрашивай по коду.

[Xardas]

Ну, а вторую задачу можно примерно так:

const
row=5; col=10;
var
s,cnt,i,j,k:integer;
sr:real;
a:array[1..row,1..col] of integer;
begin
for i:=1 to row do
for j:=1 to col do
readln(a[i,j]);

for j:=1 to col do
begin
s:=0; cnt:=0;

for i:=1 to row do
s:=s+a[i,j];

sr:=s/row;

for k:=1 to row do
if a[k,j]>sr then inc(cnt);

writeln('В ',j,' столбце ',cnt,' элементов, больших среднего этого столбца');
end;
end.