Паскаль - задача на Массивы

[Medved]

таким образом у тя вообще ничё не выйдет

[Даниил]

Хм... Спасибо Значит обманули

[Хыиуду]

По-моему, код правильный, хотя и извращенный слегка. Либо я такой невнимательный.

[Medved]

имел ввиду не выйдет объяснить преподу как это работает и сдать, т.к. сто пудов начнут придираться к лишнему массиву

[Даниил]

Ты про первый код или второй? ТО есть показывать первое решение и говорить что
"В первом блоке циклов я заполняю массив, во втором ищу в каждой строке максимальный элемент, потом суммирую их, потом вывожу на экран сумму"
И всё будет тип-топ?

[Medved]

Первый код, который ты написал. (#3).
Там говоришь "сначала заполняю массив, потом ищу в каждой строке максимальный элемент, находя прибавляю к сумме". И всё

[Даниил]

Спасибо дружище ;-)

[Даниил]

Вообщем ребят шляпа полная, сёдня эта с*ка седая вроде сказала задача правильно решена запускай, ну я запустил, там написано 'enter 3x3 line:'
ну по**ала она мне мозг, потом сказала что нужно писать матрицу
1 2 3
4 5 6
7 8 9
Но, всё равно ничего и не случилось, вообщем тыркались, тыркались она меня начала вопросами валять, на матрицу и массывы, и сказала решай задачу чтоб работала и приходи на перездачу в среду. Я так поняла она и сама них*я не поняла в чём там проблема, проклятая старая сова. Так что ребята выручайте что и как делать, спасайте мою попу )
P.S. Она ещё что то добавляла в решение задачи помоему ecess второй строчкой, ну и много всякой белеберды по мелочам. Ещё убрала readln; во втором блоке циклов, но у неё один хрен ничего не вышло.... Выручайте ребятки вообщем....

[BHy4ok]

В эту среду т.е. завтра ? Тогда жди. Приду с работы напишу.

[BHy4ok]

Для удобства можешь добавить 'Case of' - но это только для рендома. Я обошелся 'label'. Либо забить постоянный массив.
Паскаля у меня нету, поэтому точно не помню, но вроде при сочетании "Ctrl + C" закрывает окно выполнения(если оно запущено в данный момент), а не сам паскаль. (естественно без повторого нажатия)
[syntax='Pascal']
uses
Crt;
var
i,j,max,k:integer;
a:array[1..100,1..100] of integer;
label 1; // Метка
begin
1: // По завершению, после нажания на "Enter" она будет снова возвращаться на эту метку.
ClrScr;
k:=0;
for i:=1 to 3 do begin
maX:=a[i,1]; // Поиск максимума
for j:=1 to 3 do begin
a[i,j]:=random(9); // random - забиваем массив случайными числами от 0 до 9.
write(a[i,j],' '); // выводим получившийся массив на экран.
if max < a[i,j] then
max:=a[i,j];
end;
writeln; // переход на следующую строку, после 3-го шага и заполнение следующей строки.
k:=k+max; // Сложение максимальных элементов каждой строки
end;
writeln;
writeln('summa:= ',k); // вывод получившейся суммы на экран
writeln;
writeln('press "Ctrl + C" to Exit, or "Enter" to try again');
readln;
goto 1; // Переход к метке.
readln;
end.
[/syntax]