Обчислення скалярного добутку двох векторів

Дано вектори a(a[1], a[2], … a[n]) та b(b[1], b[2], …, b[n]). Необхідно знайти їх скалярний добуток: S=a[1]*b[1]+a[2]*b[2]+… +a[n]*b[n].

program ScalDob;

uses

Crt;

var

a,b:array[1..20] of real;

s:real;

n,i:integer;

begin

ClrScr;

Writeln('Введіть кількість координат y',

' кожному векторі n<=20');

Readln(n);

Writeln('Введіть попарно координати',

'векторів a та b:');

For i:=1 to n do

Begin

Write('a[',i:2,']=');

Read(a[i]);

Write('b[',i:2,']=');

Readln(b[i]);

Writeln;

End;

s:=0;

For i:=1 to n do s:=s+a[i]*b[i];

Writeln('Скалярний добуток двох векторів',

'дорівнює s=',s:10:2);

Readln;

end.

Знаходження найбільшого (найменшого) значень серед елементів масиву

Дано одномірний масив a(a[1], a[2], … a[n]), всі елементи якого різні. Необхідно знайти найбільший елемент та його номер.

program MaxElMas;

uses

Crt;

var

a:array[1..20] of real;

max:real;

i,n,nom:integer;

begin

Writeln('Введіть кількість елементів масиву',

' n<=20');

Readln(n);

Writeln('Введіть поелементно масив a:');

For i:=1 to n do Read(a[i]);

Readln;

nom:=1; max:=a[1];

For i:=1 to n do

if a[i]>max then

Begin

max:=a[i];

nom:=i;

End;

Writeln('Максимальний елемент масиву ',

'max=',max:10:2);

Writeln('Номер максимального елемента масиву ',

'nom=',nom:2);

Readln;

end.

Обчислення суми та добутку елементів масиву

Дано одномірний масив a(a[1], a[2], … a[n]). Обчислити суму та добуток його елементів.

program SumDobMas;

uses

Crt;

var

a:array[1..20] of real;

s,d:real;

i,n:integer;

begin

ClrScr;

Writeln('Введіть кількість елементів масиву',

' n<=20');

Readln(n);

Writeln('Введіть поелементно масив a:');

For i:=1 to n do Read(a[i]);

Readln;

s:=0; d:=1;

For i:=1 to n do

Begin

s:=s+a[i];

d:=d*a[i];

End;

Writeln('Сума елементів масиву s=',s:10:3);

Writeln('Добуток елементів масиву ',

'd=',d:10:3);

Readln;

end.

Перетворення масиву по заданому закону

Дано одномірний масив a(a[1], a[2], … a[n]). Не використовуючи додаткового масиву, переставити його елементи у зворотньому порядку.

program PeretvorMas;

uses

Crt;

var

a:array[1..20] of real;

b:real;

i,j,n,m:integer;

begin

ClrScr;

Writeln('Введіть довжину масиву n<=20');

Readln(n);

Writeln;

Writeln('Введіть поелементно масив a:');

For i:=1 to n do Read(a[i]);

Readln;

m:=n div 2; {Число перестановок}

j:=n;

For i:=1 to m do

Begin

b:=a[i]; a[i]:=a[j];

a[j]:=b; j:=j-1;

End;

Writeln('Перетворений масив');

For i:=1 to n do Write(a[i]:10:2);

Writeln;

Readln;

end.