INPUT "vvedite razmer massiva X ",n
INPUT "vvedite razmer massiva Y ",m
INPUT "vvedite razmer massiva Z ",l
DIM X(N), Y(M), Z(L)
 
FOR i = 1 TO N
INPUT"vvedite element massiva X ", X(i);
NEXT
 
FOR i = 1 TO m
INPUT"vvedite element massiva Y ", y(i);
NEXT
 
FOR i = 1 TO l
INPUT"vvedite element massiva Z ", z(i);
NEXT
 
PRINT "Massiv X "
  FOR i = 1 TO N
    PRINT X(i);
  NEXT
  PRINT
PRINT "Massiv Y "
  FOR i = 1 TO M
    PRINT Y(i);
  NEXT
  PRINT
PRINT "Massiv Z"
   FOR i = 1 TO L
    PRINT Z(i); 
  NEXT i
  PRINT
 
'Считаем нулевые эл-ты
  FOR i = 1 TO N
     IF X(i) = 0 THEN nulX = nulX + 1
  NEXT i  ' Это был первый массив
 
  FOR i = 1 TO M
     IF Y(i) = 0 THEN nulY = nulY + 1
  NEXT i  ' Это был второй массив
 
  FOR i = 1 TO L
     IF Z(i) = 0 THEN nulZ = nulZ + 1
  NEXT i  ' И соотв. третий
 
  '  Печатаем кол-во нулевых эл-в
  PRINT "Nulevyh v X:"; nulX
  PRINT "Nulevyh v Y:"; nulY
  PRINT "Nulevyh v Z:"; nulZ
 
'Ищем вещественные числа & домножаем 
PRINT "Novyj Massiv X "
  FOR i = 1 TO N
  IF (X(i) - INT(X(i))) <> 0 THEN X(i) = X(i) * 20:  UmnX = UmnX + 1
  PRINT X(i);
  NEXT i
  PRINT  ' Это был первый массив
PRINT "Novyj Massiv Y "
 FOR i = 1 TO M
 IF (Y(i) - INT(Y(i))) <> 0 THEN  Y(i) = Y(i) * 20:  UmnY = UmnY + 1
 PRINT Y(i);
 NEXT i
 PRINT  ' Это был второй массив
PRINT "Novyj Massiv Z "
 FOR i = 1 TO L
 IF (Z(i) - INT(Z(i))) <> 0 THEN Z(i) = Z(i) * 20: UmnZ = UmnZ + 1
  PRINT Z(i);
  NEXT i
  PRINT  ' Это был последний массив
   PRINT "Veshestvennyh v X:"; UmnX
  PRINT "Veshestvennyh v Y:"; UmnY
  PRINT "Veshestvennyh v Z:"; UmnZ
END    ' Конец программы