Заданы два массива А(N) и В(M). В каждом из массивов найти наименьшее значение и умножить...

Question

Заданы два массива А(N) и В(M). В каждом из массивов найти наименьшее значение и умножить на него все элементы массивов. На печать вывести исходные и преобразованные массивы.(требуется код)

Answer 1

CLSINPUT NDIM A(N), B(N)FOR i = 1 TO N  A(i) = INT(RND * 100)NEXT imin = A(1)FOR i = 2 TO N  IF A(i) < min THEN min = A(i)NEXT iFOR i = 1 TO N  A(i) = min * A(i)NEXT iFOR i = 1 TO N  B(i) = INT(RND * 100)NEXT imin = B(1)FOR i = 2 TO N  IF B(i) < min THEN min = B(i)NEXT iFOR i = 1 TO N  B(i) = min * B(i)NEXT iFOR i = 1 TO N  PRINT A(i);NEXT iPRINTFOR i = 1 TO N  PRINT B(i);NEXT i