1)
Var A [6..7] = 2 элемента.
Var C [5..13] = 8 элементов.
Var K [0..19] = 20 элементов.
Var A [1..8] = 8 элементов.
Var D [-8..15] = 24 элемента.
2)
1. for h := 1 to 112 do
writeln(h);
2. for i := 0 to 96 do
writeln(i);
3)
1. K[6] = 11
2. R[4] + K[1] = 28
3. 2 + K[6] = 13
4. K[1 + 2] = 7
5. K[5] + 10 = 22
6. 10 * K[4] = 260
У Алины 8 *2 = 16 Гб
16+8 = 24 Гб вместе у Алины и Яши
у Марата 24 * 4/3 = 32 Гб
Ответ 2)
Program basket;
const
n:=50;
var
i, pl : integer;
hig: array [1..50] of integer;
begin
for i:= 1 to n do
begin
hig[i]:= random(51)+150;
writeln('Рост ', i, '-го игрока - ', hig[i]);
if hig[i]>=170 then pl:=pl+1
end;
writeln(pl, ' претендентов.')
end.<span>
</span>
Program z1;
var y,a,b:real;
writeln('введите а и b');
readln(a,b);
if (a+b) mod (a-b)=0 then
writeln('значение данной функции является целым числом')
else
writeln('значение данной функции не является целым числом');
if a=b then
writeln ('функция не существует');
end.