В таблице Arr хранятся данные о количестве учеников в различных секциях (Arr [1] – количество учеников в первой секции, Arr [2] – во второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Var k, m: integer; Arr: array[1..10] of integer;
Begin
Arr[1] := 7; Arr[2] := 9; Arr[3] := 10; Arr[4] := 5; Arr[5] := 6; Arr[6] := 7;
Arr[7] := 9; Arr[8] := 8; Arr[9] := 6; Arr[10] := 7;
m := 0;
for k := 1 to 10 do
if Arr[k] < 6 then begin
m := m + 1 end;
writeln(m)
End.
1) Как называется структура, описанная именем Arr?
2) Что означают числа от 1 до 10, указанные в квадратных скобках []?
3) Укажите номера элементов, которые равны 7?
4) Какому значению равен 7 элемент, 10 элемент?
5) Сформулируйте на русском языке конструкцию:
if Arr[k] < 6 then m := m + 1;
6) Сколько элементов массива соответствуют этому условию?
7) Какое значение переменная m будет иметь в конце программы?

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

Задание №1 

var s,v,t,a:real; 
begin 
writeln('Введите скорость, ускорение и время соотвественно'); 
read(v,a,t); 
s:=v*t+(a*sqr(t))/2; 
writeln('Расстояние S = ',s); 
end.

Задание №2

var a,b,c,d,m,n:integer; 
begin 
writeln('Введите ширину и высоту комнаты'); 
read(a,b); 
writeln('Введите размеры окна'); 
read(c,d); 
writeln('Введите размеры двери'); 
read(m,n); 
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n); 
end.

Задание №3

var a,b:real; 
begin 
writeln('Введите два числа'); 
read(a,b); 
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2); 
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b))); 
end.

Задание №4

var x:real; 
begin 
writeln('Введите ребро куба'); 
read(x); 
writeln('Площадь грани = ',sqr(x)); 
writeln('Площадь полной поверхности = ',6*sqr(x)); 
writeln('Объем куба = ',power(x,3)); 
end.

Задание №5

var r1,r2:real; 
begin 
writeln('Введите внешний и внутренний радиус'); 
read(r1,r2); 
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else 
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2)); 
end.