Pascal!!!
Даны два вектора A(10) и B(10). Вычислить произведение соответствующих элементов массивов. Результат поместить в вектор X(10) и найти его минимальный элемент.

Ответы (1)

Восток 17.11.2024 2

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)->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 min>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

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Pascal!!! Даны два вектора A(10) и B(10). Вычислить произведение соответствующих элементов массивов. Результат поместить в вектор X(10) и найти его минимальный элемент.

Думаешь ответы не верны?

Pascal!!!
Даны два вектора A(10) и B(10). Вычислить произведение соответствующих элементов массивов. Результат поместить в вектор X(10) и найти его минимальный элемент.