диф.зачет по информ

[Алсу11]

Дан фрагмент программы

Y := 0;
For N := 1 to 4 do
   begin
       X := A[N, 1];
       For M := 1 to 4 do
          If A[N, M] > X Then X := A[N, M];
       Y := Y + X;
   End;
Write(Y);

в котором обрабатывается массив A: array[1..4, 1..4] Of Integer:
4 4 3 5
2 1 2 4
4 1 2 0
1 8 0 7



После окончания работы значение переменной Y равно ___.

с объяснением пожалуйста,в школе информатики не было(((



другая задача
После выполнения фрагмента программы

For k := 1 to 5 do
   begin
       Write(k);
       If k >= 4 Then begin Write(k); Write(k + 1); end;
   End;
Write(k);

на форму будет выведено ____ чисел.

[ACE Valery]

с объяснением пожалуйста,в школе информатики не было(((

а в универе типа с первого дня задали и ничего не объяснили?

[Smitt&Wesson]

Блин, всё так сумбурно.
Алсу11, чего Вы всё-таки хотите добиться?
Или нам на курсы эксрасенсов эаписаться?

[TinMan]

Алсу, милашка, а прогнать эти фрагменты на компе не пробовала? ))
Лан, из спРОтивного интересу сделаем устно.. ))

Y := 0;   // ну это ясно, обнуляем Y
For N := 1 to 4 do   // цикл, в котором...
   begin
       X := A[N, 1];   // .. мы закладываем в X значения из первого столбца
       For M := 1 to 4 do  // ыщо одын цЫкел, в котором..
          If A[N, M] > X Then X := A[N, M];  // .. кладем в X максимальный элемент в строке
       Y := Y + X;  // суммируем все
   End;  // короче гря, в Y должна оказаться сумма макимумов по строкам
Write(Y);

в котором обрабатывается массив A: array[1..4, 1..4] Of Integer:
(тут точно не указано, но ОБЫЧНО первый индекс - это номер строки)
4 4 3 5 (тут макс=5)
2 1 2 4 (тут 4)
4 1 2 0 (и тут 4)
1 8 0 7 (а тута 8)
сумма усых максимумумумумумумумов 5+4+4+8 = 21 (проверь все, я в арихметике дуб дубом..)

Маленькое реноме: приведенный код не оптимальный. Второй цикл можно было проводить не от 1, а от 2.

Ну как? круто??.. То-то же.. учись, милашка, и тоже будешь как этот серый ящик на твоем столе (или досочка с кнопочками на твоих коленях)). Имакчоб ынисьлепа етизург! Ой.. че это я такое сказал?.. опять у меня регистры переглючило, а мож чип впаяли наоборот мне.. надо срочно бежать чиниться, пока гарантия не вышла..
ПОКА, милашка!! ))