Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ матриц полегче но не очень

Автор: trew 19.05.2008 18:56

дана матрица вещественно численных А(10, 10) найти число
10
с=∑ мах А(i, j) распечатать 1<=i<=10
1

Автор: trew 19.05.2008 22:37

помогите пожалуйста

Автор: mind abuse 20.05.2008 1:38

Да сделаем, сделаем, не переживайте, главное сами потом разберитесь)

Автор: trew 20.05.2008 8:17

спосибо кстати за прошлую задачу выручил. выложи когда сделаешью

Автор: Michael_Rybak 20.05.2008 14:45

Цитата
Да сделаем, сделаем, не переживайте, главное сами потом разберитесь)


давай-давай, я уже готов понижать тебе репутацию за каждое выложенное решение.

Автор: mind abuse 20.05.2008 22:38

Ясно, понял.

Автор: Michael_Rybak 20.05.2008 23:35

Цитата
Ясно, понял.

отлично smile.gif кстати, без обид, вот на http://forum.vingrad.ru/ замечательном форуме есть ветка "http://forum.vingrad.ru/forum/Vingrad-help-center.html", в которой как раз приветствуется, когда полностью решают за кого-то. там тебе только "спасибо" будут говорить. и на всякий случай: у меня тут никаких уколов и намеков, тебе действительно может быть интересно и там, и здесь, и я только потому и говорю.

Автор: mind abuse 20.05.2008 23:51

Цитата(Michael_Rybak @ 20.05.2008 20:35) *

отлично smile.gif кстати, без обид, вот на http://forum.vingrad.ru/ замечательном форуме есть ветка "http://forum.vingrad.ru/forum/Vingrad-help-center.html", в которой как раз приветствуется, когда полностью решают за кого-то. там тебе только "спасибо" будут говорить. и на всякий случай: у меня тут никаких уколов и намеков, тебе действительно может быть интересно и там, и здесь, и я только потому и говорю.

Хи)) как раз в данный момент хотел скопировать оттуда функцию поиска максимального/минимального элемента массива, которая была бы именно помощью trew, а не сгустком кода.

Копирую, с позволения:

function MaxElement(iArray : TArray) : integer;
var
  i : integer;
  MaxE : integer;
begin
  MaxE := iArray[1];
  for i := 2 to MAX do
    if iArray[i] > MaxE then
      MaxE := iArray[i];
  MaxElement := MaxE;
end;



Автор: Michael_Rybak 21.05.2008 1:51

Цитата
Хи)) как раз в данный момент хотел скопировать оттуда

smile.gif