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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.10.2014, 02:38   #11
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,629
По умолчанию

Отож!
Я тут начал мову изучать, на всякий случай. Вдруг 404 нас оккупирует до самой чукотки.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 12.10.2014, 10:16   #12
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Оставлю автору для копипастинга:
Код:
program Project1;
const
   a:array[1..5,1..5] of double=(
      (0.31, 2.14, 7.6, 14.8, 5.3),
      (5.7 ,4.8, 6.1, 4.1, 9.6   ),
      (0.88, 5.6, 7.83, 5.1 ,8.76  ),
      (7.18, 9.36, 8.11, 8.99, 1.74  ),
      (2.14, 8.15, 7.21, 3.45, 6.9     )
   );
var l:double; i,j,xm,ym:integer;
  //отыскать наибольший элемент матрицы А
begin
  xm:=1;ym:=1;
  for i:=1 to 5 do begin
    for j:=1 to 5 do begin
     if a[i,j]>a[xm,ym] then begin xm:=i;ym:=j; end;
     write(a[i,j]:10:2);
    end; writeln;
  end;writeln;
  //строку в котором находится наибольший элемент поменять местами со следующей строкой
  if ym<>5 then begin
   for i:=1 to 5 do begin
    l:=a[ym,i];a[ym,i]:=a[ym+1,i];a[ym+1,i]:=l;
   end;
  end;
  for i:=1 to 5 do begin
    for j:=1 to 5 do begin
     write(a[i,j]:10:2);
    end; writeln;
  end;
  readln;
end.
Все равно не спасет...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вот задача, помогите Alexsandro Общие вопросы C/C++ 0 03.11.2013 16:55
Задача на С++ помогите отредактировать STIFFmaster_LP Помощь студентам 2 24.10.2009 20:08
Задача в С++ Помогите плз! KramuS Общие вопросы C/C++ 3 11.10.2009 14:23