Readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
r:=abs(a1-a2);
А можно подробнее? я не очень понял но срадостю помогу
Var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do begin
Z[i]:=(random(52))-2;
writeln(Z[i]);
end;
<span>end.
значения выводить можно через отдельный цикл
</span>var z:array[1..30]of integer;
var i:integer;
begin
randomize;
for i:=1 to 30 do Z[i]:=(random(52))-2;
for i:=1 to 30 do writeln(Z[i]);
end.
Var a:array[1..4] of integer;
i, sum:integer;
Begin
for i := 1 to 4 do begin
a[i]:= i*i;
sum := sum + a[i];
writeln(a[i]);
end;
writeln(sum);
End.