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

Program p1; var a,b: integer; begin writeln ('введите 2 числа'); readln (a,b); if a=b then writeln ('числа одинаковые') else if a> b then begin writeln ('наибольшее число ',a); writeln ('наименьшее число ',b); end else begin writeln ('наибольшее число ',b); writeln ('наиментшее число 10 ',a); end; end. program p2; var a,b,c,d: integer; begin writeln ('введите 4 числа'); readln (a,b,c,d); if a< b then a: =b; if c< d then c: =d; if a< c then a: =c; writeln ('наибольшее число ',a); end. program p3; var a,b,v: integer; begin writeln ('введите возрасты людей: '); write ('антона - '); readln (a); write ('бориса - '); readln (b); write ('виктора - '); readln (v); if (a=b) and (a=v) then writeln ('все люди одного возраста'); if (a=b) and (a> v) then writeln ('антон и борис старше виктора'); if (a=b) and (a< v) then writeln ('виктор старше всех') else if (v> a) and (v> b) then writeln ('виктор старше всех'); if (b=v) and (b> a) then writeln ('борис и виктор старше антона'); if (b=v) and (b< a) then writeln ('антон старше всех') else if (a> v) and (a> b) then writeln ('антон старше всех'); if (a=v) and (a> b) then writeln ('антон и виктор старше бориса'); if (a=v) and (a< b) then writeln ('борис старше всех') else if (b> v) and (b> a) then writeln ('борис старше всех'); end.

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.