Определить, что будет напечатано в результате выполнения программы: var s, k : integer; begin s: =50; for k: =0 to 8 do s: =s-4; write(s); end.

1)56 2)52 3)48 4)46 5)42 6)38 7)32 8)28

14. цикл выполнится 8 - 0 + 1 = 9 раз. то есть s = 50 - 9 * 4 = 14.

Например так(выводит начальный массив, максимальную сумму, измененный массив). program test; uses crt; var   arr: array[1..10] of integer;   i,j,max,maxn: integer; begin   randomize;   clrscr;   for i: =1 to 10 do       begin           arr[i]: =random(100);           write(arr[i],' ');       end;   writeln;   max: =arr[1]+arr[2];   maxn: =2;   for i: =1 to 10 do       for j: =1 to 10 do           if i< > j then               if max< arr[i]+arr[j] then                   begin                       max: =arr[i]+arr[j];                       if i> j then maxn: =i else maxn: =j;                   end;   writeln('max summ=',max);     for i: =1 to 10 do       begin           if i< maxn then arr[i]: =0;           write(arr[i],' ');       end;   readln; end.

Var mas: array[1..15] of char; i: byte; begin    write ('введите массив: ');     for i: =1 to 15 do      readln (mas[i]); for i: =1 to 15 do    begin      if (47< ord(mas[i])) and (ord(mas[i]) < 58) then        mas[i]: ='*';       if mas[i]=' ' then mas[i]: ='_';     end;       for i: =1 to 15 do        write(mas[i]);     readln; end.