Задайте массив из n случайных чисел из отрезка [-10;10]. Выведите: первый элемент, последний элемент, элемент, стоящий на среднем месте.

Відповідь:

Пояснення:

const N=15;

var

 i:integer;

 mas:array[1..N] of integer;

begin

 randomize;

 for i:=1 to N do

 begin

   mas[i]:=random(-10,10);

   write('[',i,']',mas[i],'  ');

 end;

 writeln;

 writeln('Первый элемент: ',mas[1]);

 writeln('Последний элемент: ',mas[N]);

 writeln('Элемент, стоящий на среднем месте: ',mas[N div 2]);

end.

var n,a,b,c,d,s: integer;

begin

  write('n='); readln(n); {n -   даанное 4-хзначное число}

  a: =n mod 10; {последняя, 4-я, цифра числа}

  b: =(n div 10) mod 10; {предпоследняя, 3-я, цифра}

  c: =(n div 100) mod 10; {2-я цифра}

  d: =n div 1000; {1-я цифра}

  s: =a+b+c+d;

    writeln('s=',s);

end.

клавиши переключения регистров caps lock, shift, ctrl, alt.