Pascal!!!Даны два вектора A(10) и B(10). Вычислить творение подходящих частей
Pascal!!!
Даны два вектора A(10) и B(10). Вычислить творение подходящих элементов массивов. Итог поместить в вектор X(10) и отыскать его малый элемент.
Владислав
По формуле X(i)=A(i) x B(i) ?
1 ответ
Махнушина
Ульяна
1. Современный вариант (так можно писать):
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var n:=10;
var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
var x:=a.Zip(b,(p,q)-gt;p*q); Print('X:'); x.Println;
Writeln('min(X)=',x.Min)
end.
Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250
2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не разумеют современные технологии программирования):
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
n=10;
var
a,b,x:array[1..n] of integer;
i,min:integer;
begin
Randomize;
Write('A: ');
for i:=1 to n do begin
a[i]:=Random(99)+1; Write(a[i],' ')
end;
Writeln;
Write('B: ');
for i:=1 to n do begin
b[i]:=Random(99)+1; Write(b[i],' ')
end;
Writeln;
Write('X: ');
min:=100*100; // больше наибольшего
for i:=1 to n do begin
x[i]:=a[i]*b[i]; Write(x[i],' ');
if mingt;x[i] then min:=x[i]
end;
Writeln;
Writeln('min(X)=',min)
end.
Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
begin
var n:=10;
var a:=ArrRandom(n,1,99); Print('A:'); a.Println;
var b:=ArrRandom(n,1,99); Print('B:'); b.Println;
var x:=a.Zip(b,(p,q)-gt;p*q); Print('X:'); x.Println;
Writeln('min(X)=',x.Min)
end.
Тестовое решение:
A: 34 37 41 26 78 10 13 15 59 71
B: 70 49 56 94 79 25 72 54 39 34
X: 2380 1813 2296 2444 6162 250 936 810 2301 2414
min(X)=250
2. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не разумеют современные технологии программирования):
// PascalABC.NET 3.1, сборка 1184 от 02.03.2016
const
n=10;
var
a,b,x:array[1..n] of integer;
i,min:integer;
begin
Randomize;
Write('A: ');
for i:=1 to n do begin
a[i]:=Random(99)+1; Write(a[i],' ')
end;
Writeln;
Write('B: ');
for i:=1 to n do begin
b[i]:=Random(99)+1; Write(b[i],' ')
end;
Writeln;
Write('X: ');
min:=100*100; // больше наибольшего
for i:=1 to n do begin
x[i]:=a[i]*b[i]; Write(x[i],' ');
if mingt;x[i] then min:=x[i]
end;
Writeln;
Writeln('min(X)=',min)
end.
Тестовое решение:
A: 43 52 75 74 18 57 39 67 44 20
B: 33 16 36 34 65 9 42 51 79 36
X: 1419 832 2700 2516 1170 513 1638 3417 3476 720
min(X)=513
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Облако тегов