1. дан массив натуральных чисел. напечатать все элементы массива, являющиеся двузначными числами. 2. дан массив. напечатать четные элементы. 3.все элементы массива с четными номерами удвоить, с нечетными - уменьшить на 1.

1)

 

for i : = 1 to n do

  read(a[i]);

 

for i : = 1 to n do

  if (a[i] div 100 = 0)and(a[i] div 10 > 0) then

    write(a[i], ' ');

 

2)

for i : = 1 to n do

  read(a[i]);

 

for i : = 1 to n do

  if (a[i] mod 2 = 0) then

    write(a[i], ' ');

  3) 

for i : = 1 to n do

  read(a[i]);

 

for i : = 1 to n do

  if (a[i] mod 2 = 0)then

    a[i] : = a[i]*2

else

  a[i] : = a[i] - 1;

 

for i : = 1 to n do

  wirte(a[i]);

 

первая

var n,x: integer;

begin

  readln(n);

  while n < > 0 do begin

  x: =x + n mod 10;

  n: =n div 10;

  end;

  if(x mod 2 = 0) then

    writeln('true')

  else

    writeln('false');

end.

вторая

var x,z,s: integer;

begin

  readln(x);

  if (x > 99) and (x < 1000) then begin

    s: =x;

    while s< > 0 do begin

      z: =z+s mod 10;

      s: =s div 10;

    end;

    if(x*x) = (z*z*z) then

      writeln('true')

    else

      writeln('false');

  end

  else

    writeln('число должно быть 3-ех значным! ');

end.

третья

var a,b,c: real;  

begin  

  writeln('введите a');

  readln(a);

  writeln('введите b');

  readln(b);

  writeln('введите c');

  readln(c);

  if (a=b) or (a=c) or (b=c) then

    writeln ('true')

  else

    writeln ('false);

end.

s = 0

k = 0: x = -10+3*0 = -10; x> 0 - нет

k = 1: x = -10+3*1 = -7; x> 0 - нет

k = 2: x = -10+3*2 = -4; x> 0 - нет

k = 3: x = -10+3*3 = -1; x> 0 - нет

k = 4: x = -10+3*4 = 2; x> 0 - да; s = 0+2 = 2

k = 5: x = -10+3*5 = 5; x> 0 - да; s = 2+5 = 7

k = 6: x = -10+3*6 = 8; x> 0 - да; s = 7+8 = 15

k = 7: x = -10+3*7 = 11; x> 0 - да; s = 15+11 = 26

k = 8: x = -10+3*8 = 14; x> 0 - да; s = 26+14 = 40

k = 9: x = -10+3*9 = 17; x> 0 - да; s = 40+17 = 57

k = 10: x = -10+3*10 = 20; x> 0 - да; s = 57+20 = 77

на экран будут выводиться значения: -10   -7   -4   -1   2   5   8   11   14   17   20

после 20 выведется значение s = 77. т.е подряд, без пробелов, будут выведены числа 20 и 77.

значение s = 77.