1.-1;
2.-4;
3.-5;
4.-6;
5.-2;
6.-3;
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
Const n=15;
var a:array[1..n] of integer;
s,i:integer; p:real;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(16);
write(a[i]:3);
end;
writeln;
s:=0; p:=1;
for i:=1 to n do
begin
s:=s+a[i]; p:=p*a[i];
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
Массив A:
1 14 12 14 6 4 10 3 3 1 15 4 4 5 6
s = 102 p = 36578304000