только такие значения как true или false могут принимать такие переменные.
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
<u>Пример</u>
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
Var a,b:array[1..10] of integer;i,j,min,min2,sum:integer;beginrandomize;for i:=1 to 10 dobegina[i]:=random(10);writeln(a[i]);end;min:= a[1]; for i:= 2 to 10 dobeginif (a[i] < min) then min:= a[i]; end;writeln('минимальный элемент 1 массива ',min);writeln('2 msssiv');for j:=1 to 10 dobeginb[j]:=random(10);writeln(b[j]);end;min2:=b[1];for j:=2 to 10 dobeginif ( b[j] < min2 ) then min2:= b[j]; end;writeln('минимальный элемент 2 массива',min2);sum:=min+min2;writeln('summa min:',sum);end.