Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2008, 21:01   #1
masha17
Пользователь
 
Аватар для masha17
 
Регистрация: 25.12.2008
Сообщений: 17
Сообщение Помогите решить задачки по масивам !!

1) Элементами массива являються числа целого типа х[1]..x[m+n], который рассматриваеться, как соединение двох отрезков: сначала х[1]..x[m] длиной m и концом х[m+1]..x;m+n] длиной n. Не используя дополнительных массивов, переставить начало и конец, используя такой способ: перевернуть (расположить в обратном порядке) отдельно начало и конец массива, а потом перевернуть весь массив, как единое целое.

2) Обчислить сумму элементов столбца, в котором находиться элемент с максимальным значением.

3) Дано квадратную матрицу размером N. Получить новую матрицу размером N-1 путем удаления с начальной матрицы рядка и столбца, на перегибе которых находиться максимальный элемент матрицы.

БУДУ ОЧЕНЬ БЛАГОДАРНА ЗА ЛЮБУЮ ПОМОЩЬ !!!
masha17 вне форума Ответить с цитированием
Старый 26.12.2008, 09:34   #2
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию 3

Код:
const n=8;
var a:array[1..n,1..n] of integer;
    i,j,l,t:integer;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 l:=1;t:=1;
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j]>a[l,t] then begin
                          l:=i;t:=j;
                         end;
 for i:=l to n-1 do
  for j:=1 to n do
   a[i,j]:=a[i+1,j];
  for j:=t to n-1 do
  for i:=1 to n do
   a[i,j]:=a[i,j+1];
  writeln('================================');
  for i:=1 to n-1 do
   begin
   for j:=1 to n-1 do
    write(a[i,j]:3);
   writeln;
   end;
 end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 26.12.2008, 09:36   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию 2

Код:
const n=8;
var a:array[1..n,1..n] of integer;
    i,j,l,t:integer;
    
begin
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 l:=1;t:=1;
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j]>a[l,t] then begin
                          l:=i;t:=j;
                         end;
l:=0;
for i:=1 to n do
  l:=l+a[i,t];
  writeln('Sum',l);
 end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачки!!!! Jereme Паскаль, Turbo Pascal, PascalABC.NET 2 19.12.2008 20:45
помогите решить 2 задачки! zaq2000 Паскаль, Turbo Pascal, PascalABC.NET 5 17.12.2008 18:19
задачки. помогите решить (С++) Destiny_2008 Помощь студентам 5 03.12.2008 20:08