Прочитайте из файла целые числа, увеличьте на 2 и выведите их на экран.

Uses crt; var input: text;     a: integer; begin       assign(input,'input.txt');       reset(input);       while not eof(input) do       begin           readln(input, a);           a: =a+2;           writeln(a);       end;       close(input); end.

1)

const n=31;

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

i,s,k: integer;  

begin

randomize;

for i: =1 to n do

  begin

  a[i]: =random(41)-20;

  write(a[i]: 4);

  end;

writeln;

s: =0; k: =0;

for i: =1 to n do

  if a[i]> 0 then begin s: =s+a[i]; k: =k+1; end;

writeln('средняя температура дней с оттепелью = ',s/k: 4: 2);

end.

пример:

  -7   4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12   3-20   6 -8-14 -8 18 17   6 -9 16 10 17 20-15

средняя температура дней с оттепелью = 13.00

2)

const m=10;

var a: array[1..m] of integer;

i,s: integer;  

begin

randomize;

for i: =1 to m do

  begin

  a[i]: =random(21);

  write(a[i]: 4);

  end;

writeln;

s: =0;

for i: =1 to m do 

  if i mod 2 = 1 then s: =s+a[i];

writeln('s = ',s);

for i: =1 to m do 

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

for i: =1 to m do write(a[i]: 4);

writeln;

end.

пример:

  14   9   0   8   6   2   2   16   1   16

s = 23

  14   23   0   23   6   23   2   23   1   23

подробнее - на -

using system;

using system.linq;

namespace prog

{

    public class program

    {

        public static void main(string[] args)

        {

            string str = "15 0 87 2 34";

            string[] nums = str.split(' ');

           

            var evennumbers = nums.where(i => convert.toint32(i) % 2 == 0);

            foreach (string i in evennumbers)

                console.writeline(i);

        }

    }

}

подробнее - на -