Ветвления уровень a. ввести три целых числа, найти максимальное из них. пример: введите три целых числа: 1 5 4 максимальное число 5 уровень b. ввести пять целых чисел, найти максимальное из них. пример: введите пять целых чисел: 1 5 4 3 2 максимальное число 5 уровень c. ввести последовательно возраст антона, бориса и виктора. определить, кто из них старше. пример: возраст антона: 15 возраст бориса: 17 возраст виктора: 16 ответ: борис старше всех. пример: возраст антона: 17 возраст бориса: 17 возраст виктора: 16 ответ: антон и борис старше виктора.

(начало) | /a,b,c/ | - + < a> b and a> c > - /a/ | - + | < b> c > /b/ | - | /c/) (начало) | /a,b,c,d,e/ | - + < a> b and a> c and a> d and a> e> - /a/ | - + | < b> c and b> d and b> e > /b/ | - + | < b> d and b> e > - /c/ | - + | < d> e > /d/ | - | /d/) (nachalo) | /a,b,c/ | + < a=b and b=c > /'wse starshe wseh'/ | - + + | < a=b > < a > c > /'a u b starshe c'/ | | - | | +/'c starshe wseh'/ | - + + | < b=c > < b > a > /'b u c starshe a'/ | | - | | +/'a starshe wseh'/ | - + + | < a=c > < a > b > /'a u c starshe b'/ | | - | | +/'b starshe wseh'/ | - + | < a> b and a> c > /'a starshe wseh'/ | - + | < b> c > /'b starshe wseh'/ | - | /'c starshe wseh'/)

если миша запретил маше закрашивать клеточку, двумя или более сторонами примыкающую к уже закрашенным клеточкам, значит маша может закрашивать клеточки в ряд. прямоугольник 4*100 можно представить как 4 ряда по сто клеточек, 2 ряда закрашены - ответ 200

 

2 способ

маша может закрасит клеточки в шахматном порядке

400 : 2 = 200

 

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.