Две задачи на матрицы [Паскаль]

[artemon08]

39. З масиву А(15) видалити додатні елементи.
40. Рядок матриці А(5,5), який містить елемент діагоналі з найменшим
значення, поділити на 10.

39. Из массива А (15) удалить положительные элементы.
40. Строка матрицы А (5,5), содержащий элемент диагонали с наименьшим
значение, разделить на 10.

зделайте плз, спс!!

[Vikenty]

1. где наработки?
2. имя темы не соответствует правилам форума

[Pein95]

мда где вы учитесь?

[Serge_Bliznykov]

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

1. где наработки?

+1

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

2. имя темы не соответствует правилам форума

абсолютно справедливо. на первый раз подправил...

[andrewpalkin]

Pomůžeme vám, pokud píšete v ruštině

[Serge_Bliznykov]

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

Мы поможем вам, если вы пишете на русском языке

не, товарищ, ну побойтесь Бога..

TC же написал на ридной мове и тут же, чуть ниже, перевод этих задач на русский язык...

[andrewpalkin]

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

не, товарищ, ну побойтесь Бога..

TC же написал на ридной мове и тут же, чуть ниже, перевод этих задач на русский язык...

Упс , извиняюсь не дочитал ... Он начал не с русского , поэтому читать до конца не стал ... Моя ошибка

[Mad_Cat]

39)

i:=1; n:=15;
while i<=n do
begin
if a[i]>0 then begin
for j:=i to n-1 do
a[j]:=j+1;
n:=n-1;
end
else inc(i);
end;
for i:=1 to n do
write(a[i],' ');

40

im:=1;
for i:=2 to n do
if a[i,i]<a[im,im] then im:=i;
for i:=1 to n do
a[im,i]:=a[im,i]/10;