Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Напомню вам, что на форуме есть похожие топики

Одномерные массивы, нахождение среднего арифметического
Одномерные массивы

Старый 08.02.2013, 14:10   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Вам обязательно на Коболе, или Ада сойдёт?
Vladimir_S вне форума   Ответить с цитированием
Старый 08.02.2013, 21:03   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Вам обязательно на Коболе, или Ада сойдёт? Впрочем, если устроит Паскаль, то так:
Цитата:
Сообщение от Салима Посмотреть сообщение
Дан массив А[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.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:02.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.