2 задачки, Помогите плс., Неплучаеться решить :( Опции

[Ytr]

1. Найти найбольший из елементов матрицы K (N,N), расположеных ниже главной диагонали?


2.Картинка

[TarasBer]

И чё изменилось? Один хрен, 300 кб занимает. Размер уменьшить слабо? Нахрена мне эти 2000 пикселей по горизонтали? Можно размеры уменьшить в 8 раз без потери читаемости, это уменьшит объём файла в 64 раза.
Условие на картинке всё равно непонятное (ошибка компиляции: присваивание переменной цикла) почему, если максимум берётся по и, то сумма снаружи тоже берётся по и?
Дальше.
Правило номер 1 - заголовок темы должен быть информативным. Всё, что я вижу из заголовка - это то, что задач две, а не одна, и не три. Это офигенно информативно и поможет другим при поиске.
Правило номер 3 - используй поиск, всякую такую фигню уже тут решил сто раз.
Негласное правило - тем, кто хочет, чтобы всё сделали за него (и не показывает свои попытки что-то решить), задачи решают только за деньги.

[Ytr]

И чё изменилось? Один хрен, 300 кб занимает. Размер уменьшить слабо? Нахрена мне эти 2000 пикселей по горизонтали? Можно размеры уменьшить в 8 раз без потери читаемости, это уменьшит объём файла в 64 раза.
Условие на картинке всё равно непонятное (ошибка компиляции: присваивание переменной цикла) почему, если максимум берётся по и, то сумма снаружи тоже берётся по и?
Дальше.
Правило номер 1 - заголовок темы должен быть информативным. Всё, что я вижу из заголовка - это то, что задач две, а не одна, и не три. Это офигенно информативно и поможет другим при поиске.
Правило номер 3 - используй поиск, всякую такую фигню уже тут решил сто раз.
Негласное правило - тем, кто хочет, чтобы всё сделали за него (и не показывает свои попытки что-то решить), задачи решают только за деньги.

Слушай я понимаю все - мне надо и я прошу о помощи, но будь повежлевее! А не показывай какой ты разкрутой.
Информация внутри темы - смысл мне описывать описывать ее в названии.
Картинку блин просто скажи "уменьши плс" ане расказывай что она 300кб занимает.
А насчет негласного правила 1 раз попросил о помощи и уже жалею. Еслиб мне было наплевать я б дал деньги преподу и нифга б вообще не делал.

Сообщение отредактировано: Ytr - 15.12.2010 18:53

[Ytr]

Извиняюсь за 1 задачку реально нашел подобную переделал вот что вышло:

var a:array[1..5,1..5] of real;
    i,j,iMax,jMax,:byte;
 max,min,b:real;
begin
 clrscr;
 writeln('Vvodite elementy: ');
 for i:=1 to 5 do
 for j:=1 to 5 do
  begin
   write('[',i,',',j,']: ');
   readln(a[i,j]);
  end;
  clrscr;
  writeln('Ishodnaia matrivca: ');
  for i:=1 to 5 do
   begin
    writeln;
    for j:=1 to 5 do write(a[i,j]:6:2,' ');
   end;
  max:=a[2,1];
  for i:=1 to 5 do
  for j:=1 to 5 do
   begin
    if j>i then
    if max<a[i,j] then
     begin
      max:=a[i,j];
      iMax:=i;
      jMax:=j;
     end;
     end;
 writeln('Rezultiruiuischaia matrica: ');
  for i:=1 to 5 do
   begin
    writeln;
    for j:=1 to 5 do write(a[i,j]:6:2,' ');
   end;
readln;
end.

Сообщение отредактировано: Ytr - 15.12.2010 18:51