Вам обязательно на Коболе, или Ада сойдёт? Впрочем, если устроит Паскаль, то так:
Цитата:
Сообщение от Салима
Дан массив А[6,6]. Построить массив B(6) по следующему правилу: B(1) присвоить количество нулевых элементов главной диагонали, B(2) присвоить количество нулевых элементов диагонали, расположенной выше и параллельно главной диагонали и т.д.
|
Код:
var
A:array[1..6,1..6] of Integer;
B:array[1..6] of Byte;
i,j: byte;
begin
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
A[i,j]:=-1+Random(3);
write(A[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to 6 do
begin
B[i]:=0;
for j:=0 to 6-i do
if A[j+1,i+j]=0 then Inc(B[i]);
write(B[i]:4);
end;
Readln
End.