Одномерные массивы

Задание 1

Запишите число, которое будет напечатано в результате выполнения следующей программы. var s, n: integer; begin s := 100; n := 300; while s + n <= 600 do begin s := s + 40; n := n − 20; end; writeln(s) end.

Задание 2

В программе используется одномерный целочисленный массив A с индексами от 1 до 10. Значения элементов равны 7; 3; 4; 8; 6; 9; 5; 2; 0; 1 соответственно, т. е. A[1] = 7; A[2] = 3 и т. д. Определите значение переменной j после выполнения следующего фрагмента программы. j := 0; for k := 2 to 10 do begin if A[k] <= A[1] then begin A[1] := A[k]; j := j + k end end;