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

Pascal!!! Даны два вектора A(10) и B(10). Вычислить произведение соответствующих элементов массивов. Результат поместить в вектор X(10) и найти его минимальный элемент.
Гость
Ответ(ы) на вопрос:
Гость
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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы