program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.
Ответ дал: Гость
const n = 20; var a : array [1..n] of integer; pos, sum, znak : integer; begin write('массив: '); randomize; for pos : = 1 to n do begin a[pos] : = random(101) - 50; write(a[pos]: 4); end; writeln; for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos]; writeln('разность между суммой 1-й половины и 2-й = ', sum); end.
Популярные вопросы