Const D = 2.54;
var i: integer;
rez: real;
begin
for i := 1 to 10 do begin
rez := i * D;
writeln( i, ' см = ', rez, ' дюйм' );
end;
<span>end.</span>
//прога на Pascal`е
<span>var
</span><span> a : longint;
</span><span>begin
</span><span>write ('Введите кол-во минут: ');
</span><span>read(a);
</span><span>write (a, ' минут{ы) - это ', (a div 60) : 3, ' ч. ', (a mod 60) : 2, ' мин.');
</span><span>end.</span>
Чтобы сумма переменных была равна нулю (т.е. была ложна), нужно чтобы каждый элемент был равен нулю.
X1=0
X2=1
X3=0
X4=1
X5=1
X6=1
X7=1
Следовательно существует всего лишь один набор чисел.
1
2
3
4
5
6
7
8
9
<span>uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.</span>