Из двух одномерных массивов a[1..n] и b[1..n] сформируйте новый одномерный массив c[1..n], значение элементов которого равно разности значений элементов исходного массива.
Program test; const N = 10; var i:integer; a,b,c:array [1..N] of integer; begin for i:=1 to N do begin a[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(a[i]); b[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(b[i]); end; for i:=1 to N do beginif a[i]>b[i] then c[i]:=a[i]-b[i] else c[i]:=b[i]-a[i]; write(c[i],' '); end; end.
Базовое программное обеспечение - это набор программ, которые отвечают за взаимодействие с аппаратными средствами (компонентами, составляющими базовую конфигурацию вычислительной техники).
в состав базового по входят:
- операционные системы - сервисные программы (оболочки операционных систем, утилиты, интерфейсные программы) - инструментальные программы (трансляторы, загрузчики, средства отладки) - программы технического обслуживания (наладочные, диагностические, тестовые)
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
const N = 10;
var i:integer;
a,b,c:array [1..N] of integer;
begin
for i:=1 to N do
begin
a[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(a[i]);
b[i]:=random(1,100);//если хочеш ввести с клавы напиши вместо строки readln(b[i]);
end;
for i:=1 to N do
beginif a[i]>b[i] then c[i]:=a[i]-b[i]
else c[i]:=b[i]-a[i];
write(c[i],' ');
end;
end.