Напишите программу для паскаля. условие: обменять значения двух переменных, используя третью(буферную) переменную

var

  a, b, buf: real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  buf : = a;

  a : = b;

  b : = buf;

  writeln('a = ', a);

  writeln('b = ', b);

end.

 

 

// без буферной переменной

var

  a, b: real;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  a : = a + b;

  b : = a - b;

  a : = a - b;

  writeln('a = ', a);

  writeln('b = ', b);

end.

 

Объяснение:

Объяснение:Качество плохое

Объяснение:Качество плохоеДля email:

Объяснение:Качество плохоеДля email:eSputnik

Объяснение:Качество плохоеДля email:eSputnikStripo

Объяснение:Качество плохоеДля email:eSputnikStripoBeefree

Объяснение:Качество плохоеДля email:eSputnikStripoBeefreeTemplatemonster

Объяснение:Качество плохоеДля email:eSputnikStripoBeefreeTemplatemonsterEnvato

Объяснение:Качество плохоеДля email:eSputnikStripoBeefreeTemplatemonsterEnvatoChamaeleon

Объяснение:Качество плохоеДля email:eSputnikStripoBeefreeTemplatemonsterEnvatoChamaeleonэто шаблоны ещё

program massiv;

uses crt;

const n=10 {размер массива} 

var i,k: integer;

        a: array[1..n] of integer;

begin

      clrscr;

      write('введите элементы массива: ' );

      k: =1  

      for i: =1 to n do

            begin

                  readln (a[i]);

                  if (a[i]< 0) and (a[i] mod 7)=0 then k: =k*a[i];

            end;

writeln;    

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

 

for i: =1 to n do   write(a[i]: 3);        

 

  writeln;

writeln('произведение отрицательных элементов кратных 7: ',k);

 

  readkey;

end.