№1. какое число будет выведено в результате работы программы: var n, s: integer; begin n: =1; s: =0; while n< =100 do begin s: =s+30; n: =n*3; end; write (s); end. №2. какое число будет выведено в результате работы программы: var k, s: integer; begin s: =0; k: =1; while k< 11 do begin s: =s+k; k: =k+1; end; write (s); end. №3. для 1 и 2 нарисовать блок-схему. можно полный ответ )

Блок-схемы - в прилагаемом файле.
1.
переменные s и n в цикле будут меняться так:
30 3
60 9
90 27
120 81
150 243 (n > 100)
Т.е. на экран будет выведено 150

2.
Здесь переменные s и k в цикле будут меняться так:
1 2
3 3
6 4
10 5
15 6
21 7
28 8
36 9
45 10
55 11 (k >=11)
На экран будет выведено значение 55

Задача №1
Переменная s = 150
Задача №2
Переменная s = 55

Блок-схемы во вложениях

Const
  n = 15;

var
  i: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
  end;
  writeln;
  writeln('Результирующий массив');
  for i := 1 to n do write(a[i]:6);
  writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28

Const
  n = 15;

var
  i: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
  end;
  writeln;
  writeln('Результирующий массив');
  for i := 1 to n do write(a[i]:6);
  writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28