08.02.2013, 13:46 | #1 (permalink) |
Новичок
Регистрация: 08.02.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачи на двумерные и одномерные массивы
Дан массив А[6,6]. Построить массив B(6) по следующему правилу: B(1) присвоить количество нулевых элементов главной диагонали, B(2) присвоить количество нулевых элементов диагонали, расположенной выше и параллельно главной диагонали и т.д. По двум заданным одномерным массивам формируется третий, содержащий попарно максимальные числа. |
08.02.2013, 13:46 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Напомню вам, что на форуме есть похожие топики Одномерные массивы, нахождение среднего арифметического Одномерные массивы |
08.02.2013, 21:03 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вам обязательно на Коболе, или Ада сойдёт? Впрочем, если устроит Паскаль, то так:
Цитата:
Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|