Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты.если разностьпервых двух чисел превышает четвертое, то выведите все четыре числа без изменения. если сумма всех чисел не больше 80, то выведите только два первых числа. если выполняется одновременно два перечисленных выше условия, то выведите только два последних числа.иначе, выведите все четыре числа, увеличев их на 5

одна тонкость - разность первых   2-ух чисел это из первого вычитаем второе или из второго первое?  

 

program chisla;

uses crt;

var a,b,c,d,sum: real;

begin

 

      clrscr;

      write('введите первое число: ');

      readln(a);

      write('введите второе число: ');

      readln(b);      

      write('введите третье число: ');

      readln(c);  

      write('введите четвёртое число: ');

      readln(d);

 

 

        sum: =a+b+c+d;

        if ((a-b)> d) and (sum< =80) then writeln(c,d)

              else

 

                    if (a-b)> d   then writeln(a,b,c,d)

            else

                  if  (sum< =80)  then writeln(a,b)

 

                    else    writeln(a+5,b+5,c+5,d+5);

      readkey;

end.

 

 

 

 

 

 

         

 

   

1)

var

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

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.

1)

var

a,b,x,y: real;

begin

readln(a,b);

x: =(a+b)/2;

y: =2*a*b;

if a> b then

begin

a: =y;

b: =x;

end

else

begin

a: =x;

b: =y;

end;

writeln('a=',a: 8: 3);

writeln('b=',b: 8: 3);

end.

2)

var

d,m: integer;

begin

readln(d,m);

if (d< 1) or (d> 31) then writeln ('день введен неверно');

if (m< 1) or (m> 12) then writeln ('месяц введен неверно');

end.

3)

var 

a,b,c: integer;

begin

readln(a,b,c);

if (a> b) and (a> c) then writeln(a);

if (b> a) and (b> c) then writeln(b);

if (c> a) and (c> b) then writeln(c);

end.