Измените программу из примера 17.3. длина стороны самого большого квадрата 400, а длина стороны каждого следующего квадрата на x меньше(х вводится). информатика, 8 класс. пример 17.3.: uses graphabc; var a,x1,y1,x2,y2: integer; begin write('введи a= '); read(a); write(a); x1 : = 50; y1 : =
50; x2 : = 450; y2 : = 450; for var i : = 1 to 20 do begin rectangle(x1,y1, x2,y2); x1 : = x1 + a; y1 : = y1 + a; x2 : = x2 - a; y2 : = y2 - a; end; end.

1) 
z = 0
считаем количество нечётных элементов массива
15  (нечётное)   z = 1
17  (нечётное)   z = 2
24     (чётное)   z = 2
18      (чётное)   z = 2
13  (нечётное)   z = 3
28     (чётное)   z = 3
18      (чётное)   z = 3
95 (нечётное)   z = 4
19  (нечётное)   z = 5
17  (нечётное)   z = 6
ответ: 6

2) 
s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
14 > 24 (нет)
8 > 24 (нет)
56 > 24 (да)     s = 56
12 > 56 (нет)
48 > 56 (нет)
25 > 56 (нет)
19 > 56 (нет)
17 > 56 (нет)
ответ: 56

program HelloWorld;

var n:array [1..6] of string;

var i,k,j: smallint;

begin

   

    n[1] := '1+';

    n[2] := '2+';

    n[3] := '3+';

    n[4] := '4+';

    n[5] := '5+';

    n[6] := '6';

   

    k :=  0;

    for i:=1 to 6 do

      if pos('+',n[i]) > 0 then k := k + 1;

 

    if k>4 then

        for i:=1 to 6 do

        begin

           j := pos('+',n[i]);

           if j > 0 then

           begin

            delete(n[i],j,1);

            insert('=',n[i],j);

           end;

        end;

 

    for i:=1 to 6 do

      writeln(n[i]);

 

end.