3. Дан двумерный массив 5*5. Заменить нулем элементы, расположенные под главной диагональю.
var a:array[1..5,1..5]of integer; i,j:byte; begin for i:=1 to 5 do for j:=1 to 5 do begin read(a[i,j]); if i>j then a[i,j]:=0;end; for i:=1 to 5 do begin for j:=1 to 5 do write(a[i,j]); writeln;end; end. Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2. В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму отрицательных элементов массива и сравнить с введенным значением С.
var i,as,,n,c:integer; begin read(n,c); for i:=1 to n do begin read(a); if a<0 then s:=s+a;end; writeln(s); if s>c then writeln('s>c') else writeln('s<c'); end. Нужна помощь? Сюда: vkontakte.ru/berestovskiy
