А) integer так как 2 в последнем слагаемом сократится
б) однозначно real, так как X в переменных описан явно как real
в) real (все переменные описаны как real)
г) real (все из-за корня квадратного)
Либо я чего то не понял, либо все так просто как я понял. Рас мы в информатике то под текстами и языками понимаются кодировки и раскладки верно? Если действительно так то лишь в том случае когда кодировка предусматривает это, проще говоря русские символы можно запихнуть в юникод и в виндовс1251, а вот с другими будут несосотыковки и явные проблемы...ну это если я все верно понял...
Const n=20;
var a:array[1..n] of integer;
i,k,m:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
k:=0; m:=0;
for i:=1 to n-1 do
begin
if a[i+1]>a[i] then begin m:=m+1; end
else begin if m>0 then k:=k+1; m:=0; end;
end;
if m>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Массив A:
7 30 22 0 17 4 2 32 39 26 23 41 1 38 47 21 38 31 43 7
k = 7
Div берет целую часть от деления
15/4 = <span>3.75
Целая часть числа 3.75 = 3
</span>X = 3
begin
writeln(15 div 4);
end.
Ну вы хотябы Сделайте фотографию чтобы посмотреть что там)