Var
A : array[1..9] of integer; // массив 9 элементов
summa, i : integer; // переменная для суммы
begin
for i:=1 to 9 do
A[i]:= random(100) // заполняем массив рандомными числами
summa:= A[1] + A[2] + A[3] сложение трех элементов массива
writeln(summa); // вывод суммы
end.
80..........................................................
Var x1,y1,z1,x2,y2,z2,x3,y3,z3,abx,aby,abz,acx,acy,acz,s,mx,my,mz,c:real;
begin;
readln(x1);
readln(y1);
readln(z1);
readln(x2);
readln(y2);
readln(z2);
readln(x3);
readln(y3);
readln(z3);
abx:=x2-x1;
acx:=x3-x1;
aby:=y2-y1;
acy:=y3-y1;
abz:=z2-z1;
acz:=z3-z1;
mx:=aby*acz-abz*acy;
my:=abz*acx-abx*acz;
mz:=abx*acy-aby*acx;
c:=sqrt(sqr(mx)+sqr(my)+sqr(mz));
s:=0.5*c;
writeln(s);
end.<span>
</span>
Получите 1.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=ReadAllText('MyFile.txt');
Writeln(s)
end.
За 2: сначала сравниваем две тройки, а потом две монетки из легкой тройки.