Массивы

[Junkle]

Здравствуйте! пытаюсь решить элементарные задачи на Паскале,но не выходит,пожалуйста помогите ! Вроде в ветке искал,но не нашел ничего похожего.... вот задачи
- Дан массив удалить столбец,где встречается 3 отрицательный элемент.

- Дан массив ,найти средне арифметическое по столбцам и строкам.

[SaLoKiN]

идеи есть?

[Vanta11a]

Перевожу на русский язык:

Здравствуйте, я посмотрел одним глазом темы на форуме, но не нашел той, в которой решается точно такая же задача. Поэтому сейчас я говорю, что ничего не понял и надеюсь, что за меня все сделают, причем нахаляву.

Наработки где?

[Stilet]

Дан массив

Покажи кодом как вводишь массив - поправим )

[Fgjkl]

вот наработки

var a:array [1..5,1..5] of integer;
i,j,k,kj: integer;
begin
k:=0;
kj:=1;
for i:=1 to 5 do
for j:=1 to 5 do
readln(a[i,j]);
if a[i,j]<0 then
begin
k:=k+1;
if k=2 then kj:=j;
end;
for j:=kj to 4 do
a[j]:=a[j+1];
for j:=1 to 5 do a[i,5]:=0;
write(a[i,j]);
writeln;
end.