Задачи на двумерные и одномерные массивы

[Салима]

Задачи на двумерные и одномерные массивы

помогите пожалуйста )):tehnari_ru_837:
Дан массив А[6,6]. Построить массив B(6) по следующему правилу: B(1) присвоить количество нулевых элементов главной диагонали, B(2) присвоить количество нулевых элементов диагонали, расположенной выше и параллельно главной диагонали и т.д.

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

 

[Vladimir_S]

Вам обязательно на Коболе, или Ада сойдёт?

 

[Vladimir_S]

Вам обязательно на Коболе, или Ада сойдёт? Впрочем, если устроит Паскаль, то так:

Дан массив А[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.