1)определите значение переменной s после выполнения следующего фрагмента программы: n : = 1; s : = 0; while n < = 101 do begin s : = s + 7; n : = n + 1 end; 2)определите значение переменной s после выполнения следующего фрагмента программы: s: =1; i: =1; while i < 5 do begin s : = s + i*(i+1); i : = i + 1; end; 3)определите значение переменной s после выполнения следующего фрагмента программы: n : = 14; s : = 0; while n < = 18 do begin s : = s + 25; n : = n + 1 end;

1)707 2)41 3)125 /////////////////////////////

1)707 2)41 3)125 все просто )0)0

1. размерностью, типом, статический/динамический, количеством измерений. 2. в классическом паскале: var название массива: array[размерность/размерности] of тип (но на самом деле методов огромное количество) 3. инициализация, установка размерности(динамический), ввод значений, манипуляции, освобождение памяти(динамический). 4. в классическом паскале: имя массива[индекс элемента]: =значение (опять же, методов на самом деле много) 5.    в случае, если они присвоены посредством генератора псевдослучайных чисел. 6. 1. for i: =1 to размерность массива do writeln(имя массива[i]); 2.  for i: =1 to размерность массива do write(имя массива[i]: 4);

//pascal abc.net версия 3.0. сборка 1110 var ar: array of integer; i,n,r: integer; begin; readln(n); setlength(ar,n+1); writeln('array'); for i: =1 to n do   begin;   ar[i]: =random(100);   write(ar[i]: 4);   end; sort(ar); writeln; writeln('по возрастанию: '); for i: =1 to n do write(ar[i]: 4); reverse(ar,1,n); writeln; writeln('по убыванию: '); for i: =1 to n do write(ar[i]: 4); end.пример ввода: 5пример вывода: array  26   24   73   54   61по возрастанию:   24   26   54   61   73по убыванию:   73   61   54   26   24