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

Ответы 1

  • 1. Современный вариант (так можно писать):// PascalABC.NET 3.1, сборка 1184 от 02.03.2016begin  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 71B: 70 49 56 94 79 25 72 54 39 34X: 2380 1813 2296 2444 6162 250 936 810 2301 2414min(X)=2502. "Школьный вариант" (так учат в школе, чтобы жизнь медом не казалась, но может быть, что учителя сами не понимают современные технологии программирования):// PascalABC.NET 3.1, сборка 1184 от 02.03.2016const  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
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years